tag:blogger.com,1999:blog-573792245234620353.post7853433652199269287..comments2023-10-26T15:13:11.941+07:00Comments on Belajar VB 6.0, visual basic ,download ,visual studio sintak kode: Modul Koneksi Vb 6.0 dengan Database Sql Server 2000Unknownnoreply@blogger.comBlogger12125tag:blogger.com,1999:blog-573792245234620353.post-80713621251554921042018-08-05T16:40:46.482+07:002018-08-05T16:40:46.482+07:00terima kasih infonya, ditunggu kunjungan baliknya ...terima kasih infonya, ditunggu kunjungan baliknya gan<br />http://carakuvb6.blogspot.comZAHWA KAYYISAH Rhttps://www.blogger.com/profile/09649915111408525465noreply@blogger.comtag:blogger.com,1999:blog-573792245234620353.post-2896724046483520952012-05-07T19:07:04.424+07:002012-05-07T19:07:04.424+07:00mas bagaimana untuk vb 6.0 dan database sql server...mas bagaimana untuk vb 6.0 dan database sql server bisa berbasis client server.<br />tolong jelasin apa saja yang dibutuuhkan oleh komputer client dan komputer server?<br />Jelasin juga cara koneksi dari client ke server tersebut.Anonymousnoreply@blogger.comtag:blogger.com,1999:blog-573792245234620353.post-14184261782031048192011-07-07T13:59:04.339+07:002011-07-07T13:59:04.339+07:00koneksi x sich dajberhasi tapi pas form transaksi ...koneksi x sich dajberhasi tapi pas form transaksi x gagal melulu..<br />tampilin donk sintak simpan pada form transaksi x...Anonymousnoreply@blogger.comtag:blogger.com,1999:blog-573792245234620353.post-72330314119899039932011-01-18T01:13:56.325+07:002011-01-18T01:13:56.325+07:00Yahhh.... cuy...kalo cuma penjelasan seperti ini s...Yahhh.... cuy...kalo cuma penjelasan seperti ini seh...adik gue yg masih TK juga sambil merem bisa..!!!!! Coba setting client/server menggunakan SQL server 2000. Akan lebih menarik bro....<br />Misalnya, gimana cara instalasi untuk PC Server, dan Client-nya, and bagaimana konfigurasinya agar program yg kita eksekusi, bisa menyimpan datanya di komputer Server.Anonymousnoreply@blogger.comtag:blogger.com,1999:blog-573792245234620353.post-69032405103876748642010-08-06T02:50:08.750+07:002010-08-06T02:50:08.750+07:00mas untuk code form koneksinya di post sekalian, a...mas untuk code form koneksinya di post sekalian, ato kalau bisa kirim email gue gop3l@yahoo.co.id . sebelumnya thank atas tutornyaAdminhttps://www.blogger.com/profile/01956892046539683996noreply@blogger.comtag:blogger.com,1999:blog-573792245234620353.post-4095442309281147302010-06-24T13:03:24.398+07:002010-06-24T13:03:24.398+07:00contoh untuk koneksi.ini seperti apa?contoh untuk koneksi.ini seperti apa?Anonymousnoreply@blogger.comtag:blogger.com,1999:blog-573792245234620353.post-68521583335217847672009-11-20T23:10:26.524+07:002009-11-20T23:10:26.524+07:00Makasi muhie, semoga berguna bagi pembaca semuaMakasi muhie, semoga berguna bagi pembaca semuama2dxlhttps://www.blogger.com/profile/17059885251565077897noreply@blogger.comtag:blogger.com,1999:blog-573792245234620353.post-43406675591882213022009-11-03T18:12:16.902+07:002009-11-03T18:12:16.902+07:00coba and buat koneksi database dengan file koneksi...coba and buat koneksi database dengan file koneksi.ini, karena lebih fleksible tidak usah membongkar sorcecode bila ada perubahan koneksi database<br /><br />buat modul seperti ini pada VB 6.0<br /><br /><br />Public SimpanKoneksi As String<br />Public cn As New ADODB.Connection<br /><br /><br />Sub Koneksi()<br />On Error GoTo AdaError<br /> <br /> If cn.State = adStateOpen Then cn.Close: Set cn = Nothing<br /> cn.CommandTimeout = 6000<br /> cn.CursorLocation = adUseClient<br /> cn.ConnectionString = LoadKoneksi<br /> cn.Open<br /> <br /> 'Frm_Utama.Show<br /> <br /> Exit Sub<br />AdaError:<br /> Cek = "gagal"<br /> If Err.Number = -2147467259 Then<br /> MsgBox "Konektivitas Belum Di Setting" & vbCrLf & "Silahkan Anda Mengatur Koneksi Ke Server.", vbInformation, "Informasi"<br /> ElseIf Err.Number = 0 Then<br /> MsgBox "Koneksi Ke Database Gagal", vbCritical, "Peringatan"<br /> Else<br /> Call PesanError<br /> Exit Sub<br /> End If<br /> OpenFile (App.Path + "\Koneksi.ini")<br />End Sub<br /><br /><br />Function LoadKoneksi()<br /> LoadKoneksi = ReadINI("Connectionstring", "connectionstring", App.Path + "\Koneksi.ini")<br /> SimpanKoneksi = LoadKoneksi<br />End Function<br /><br /><br />Function ReadINI(Section As String, KeyName As String, FileName As String) As String<br /> Dim sRet As String<br /> sRet = String(255, Chr(0))<br /> ReadINI = Left(sRet, getprivateprofilestring(Section, ByVal KeyName$, "", sRet, Len(sRet), FileName))<br />End Function<br /><br /><br />Public Sub OpenFile(lpFULLfilename As String)<br />On Error GoTo Problem<br /> Dim EEI<br /> Dim X<br /> X = Shell(lpFULLfilename)<br />Problem:<br /> Screen.MousePointer = 1<br /> FrmKoneksi.Show<br />End Sub<br /><br /><br /><br />dan pada formkoneksi <br /><br />buat 2 opsi,<br />1 textboxt untuk user id sql<br />1 textbox untuk password sql<br />1 textbox untuk server (namaserver jaringan/lokal)<br />1 textbox untuk Nama Database<br />2 commandbutton OK dan Cancel<br /><br /><br /><br /><br /><br />code frmkoneksi nanti dilanjut atao kirim email saja ke muhie.asc@gmail.comMuhiehttps://www.blogger.com/profile/11876060306106528128noreply@blogger.comtag:blogger.com,1999:blog-573792245234620353.post-43419173846147759842009-08-18T13:41:45.907+07:002009-08-18T13:41:45.907+07:00coba cari literatur tentang winsock.coba cari literatur tentang winsock.ma2dxlhttps://www.blogger.com/profile/17059885251565077897noreply@blogger.comtag:blogger.com,1999:blog-573792245234620353.post-75549103011951520942009-05-01T09:50:00.000+07:002009-05-01T09:50:00.000+07:00klo koneksi dalan jaringan LAN gimana? pake vb dat...klo koneksi dalan jaringan LAN gimana? pake vb databasenya sql server, misal komp server dan komp client. komp client menyimpan data ke server pake sql server gimana caranya?Anonymousnoreply@blogger.comtag:blogger.com,1999:blog-573792245234620353.post-28323475615066120162008-08-26T21:59:00.000+07:002008-08-26T21:59:00.000+07:00weee...kok q gagal ya??.setelah code ini Set con =...weee...kok q gagal ya??.setelah code ini <BR/>Set con = New ADODB.Connection<BR/>con.Open strcon<BR/> q tmbh msgbox "sukses"<BR/>else jg q ksh msgbox<BR/>tapi hasilnya gagal tuch??<BR/>gmn ya???bru belajar nich.Anonymousnoreply@blogger.comtag:blogger.com,1999:blog-573792245234620353.post-44783687602398347292008-02-21T04:41:00.000+07:002008-02-21T04:41:00.000+07:00Maturnuwun,..Maturnuwun,..Maturnuwun,..Maturnuwun,...Maturnuwun,..<BR/>Maturnuwun,..<BR/>Maturnuwun,..<BR/>Maturnuwun,..<BR/>Maturnuwun,..<BR/>Maturnuwun,..<BR/>Maturnuwun,..<BR/>Maturnuwun,..cupruthttps://www.blogger.com/profile/10320402846835726346noreply@blogger.com