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

[Rudy Harsa Putra]

saya pernah juga mengalami hal serupa tapi yang saya kirim itu hanya syntax sql saja mis:Select * from .." jadi proses data hasil ada di server setelah dapet hasilnya baru dikasih ke client, client hanya lempar syntax sql aja, boleh saya tau utk pembuatan aplikasi apa ya? ----- Original Message ----- From: Zainal Syam Arifin, ST To: Programmer-VB@yahoogroups.com Sent: Monday, September 29, 2003 4:43 PM 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.