Re: [Programmer-VB] Tolong bantu paling tidak dalam bentuk ide

Thu, 29 Sep 2005 20:14:12 -0700

Terima kasih atas idenya, sepertinya ide itulah yang paling masuk akal saat ini. Akan saya coba.
terima kasih.  :)
 
 
salam,
 
 
zainal
----- Original Message -----
From: Setiawan
Sent: Friday, September 30, 2005 10:37 AM
Subject: RE: [Programmer-VB] Tolong bantu paling tidak dalam bentuk ide

Paling baik untuk parsing data apalagi data bentuk recordset, kalau di dotnet dataset/datatable. Data tersebut di serialize ke xml.

Nanti di app. Server xml tersebut bisa di deserialize lagi. Tapi kalau di vb6 saya tidak tau apa ada serialize dan deserialize,

kalau ngak ada, mau ngak mau harus buat sendiri.

 

Mungkin rekan-rekan punya masukan lain.

 

Regards,

Setiawan

 

From: [email protected] [mailto:[email protected]] On Behalf Of Zainal Syam Arifin, ST
Sent: Monday, September 29, 2003 4:43 PM
To: [email protected]
Subject: [Programmer-VB] Tolong bantu paling tidak dalam bentuk ide

 

Saya sedang membuat aplikasi client -server menggunakan winsock (TCP/IP). Aplikasi server berjalan secara background (service) dan dapat diakses melalui tray icon.

Aplikasi client diinstall pada setiap client dan menggunakan port 55000.

Programnya berjalan dengan baik dan dapat melayani banyak client sekaligus, namun ada masalah:

"program server hanya bisa melayani 1 jenis system saja. misalnya program aplikasi billing. jadi setiap saya hendak membuat 1 macam system informasi maka aplikasi servernya juga khsusus. sehingga jika dalam 1 komputer server terdapat 2 atau lebih layanan system informasi, maka aplikasi servernya juga dibuat 2 atau lebih"

 

Saya punya ide, dimana saya berusaha membuat 1 aplikasi server yang berfungsi seperti MS SQL Server, dan berusaha membangun sintax sendiri seperti halnya sintax pada ADO namun yang dapat dikenali oleh aplikasi server.

 

kesulitannya :

Saya belum menemukan algoritma yang cepat dan tepat untuk melewatkan data berupa recordset melalui winsock. karena yang saya tahu, untuk melewatkan data melalui winsock, maka variabelnya adalah string. Karena itu saya membuat algortima kurang lebih sbb:

 

const ColumnSep = vbTab

const RowSep = vbcrlf & chr$(7)

dim rs as ado.recordset

dim strRs as string, intNumFields as integer, i as integer

 

    rs.open "sql di sini",....dst

        intNumFields = .........Code untuk menghasilkan jumlah fields

        strRs=""

        do while not rs.eof

            for i=0 to intNumFields -1

                strRs=strRs & rs.fields(i).value & ColumnSep

            next i

            strRs = strRs & RowSep

            rs.movenext

        loop

 

Dari sini saya peroleh variabel strRs yang siap di transfer melalui winsock.

masalahnya terjadi proses looping yang membuat server kepayahan. kalau jumlah record yang dihasilkan tidak banyak, maka tidak masalah. namun jika jumlahnya banyak maka not responding.

 

Ada teman - teman yang mau menanggapi?

 

salam,

 

 

zainal




Untuk keluar dari millis ini, kirim email kosong ke:
[EMAIL PROTECTED]


YAHOO! GROUPS LINKS



Kirim email ke