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

[Setiawan]

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: Programmer-VB@yahoogroups.com [mailto:Programmer-VB@yahoogroups.com] On Behalf Of Zainal Syam Arifin, ST Sent: Monday, September 29, 2003 4:43 PM To: Programmer-VB@yahoogroups.com 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] SPONSORED LINKS Programmer Indonesia Basic programming language Computer programming languages Programming languages Java programming language YAHOO! GROUPS LINKS  Visit your group "Programmer-VB" on the web.    To unsubscribe from this group, send an email to:  [EMAIL PROTECTED]    Your use of Yahoo! Groups is subject to the Yahoo! Terms of Service.