Re: [indoprog-vb] Coba koneksi SQL Server & VB

Sat, 03 Jun 2006 14:31:27 -0700

Mas Edi
  Untuk Jawaban No
  1.  Kalo Bisa Install Kan Sql Server 2000 Pro
      Karena Disitu Selain Security nya lebih lengkap juga lebih cepat
 
  2. Untuk Koneksi ke databasenya mungkin ga terlalu rumit
      Masukkan Coding ini di dalam modul, serta tambahkan reference microsoft
      recordset data liberary 2.0 atau yang lebih tinggi.  Coding dibawah ini Jika       SQLnya Di  Setting Pake User dan diberi password
     
      option explicit
      dim conn as adodb.connection
      dim rst as adodb.recordset
      dim sql as string,NmUsr as string, pass as string,NmDatabase as string, NmServer as string
    
      sub main
          'misal Namauser = edi
          'pass=edi
          'namadatabase=personalia
          'namaserver=server1
          Nmuser=edi
          pass=edi
          NmDatabase=personalia
          NmServer=server1
          set conn=new adodb.connection
          Conn.CursorLocation = adUseClient
           sql = "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=" +              NmUsr +  ";" _
           + "Password=" + pass + ";Initial Catalog= " + NmDatabase+ "  ;Data        Source=" +  NmServer +  ""
           conn.open sql
      end sub

      sub putus_hubungan
          conn.close
          set conn = nothing
      end sub
 
      Trus Pada Formnya Untuk Koneksi Ke Tabel Sbb:
      misal nama tabel Data_Perso
 
      Private Sub Form1_load()
            Set rst= new adodb.recordset
                 rst.open "select * from  Data_Perso", conn, AdOpendinamic, adopenlookoptimistic
                 msgbox "Berhasil Terhubung Ke Tabel"
            set rst= nothing
       End  Sub
       Private sub form1_queryunload()
          call putus_hubungan
       end sub
 
       Perintah seperti menyimpan, mencari,mengupdate hampir sama ketika menggunakan ms Access
  cuma perintah mid pada sql server tidak dikenali, kita harus pake substring
 
  Salam
 

           
---------------------------------
Ring'em or ping'em. Make  PC-to-phone calls as low as 1ยข/min with Yahoo! Messenger with Voice.

[Non-text portions of this message have been removed]



Untuk berhenti berlangganan kirim email kosong ke : [EMAIL PROTECTED]

Forum ini berkembang dengan pesat, jika anda memiliki
dedikasi dan waktu, silahkan mengaplikasikan diri
menjadi moderator.



SPONSORED LINKS
Computer internet security Computer internet business Computer internet access
Computer internet privacy securities Computer internet help Computer internet connection

YAHOO! GROUPS LINKS



Kirim email ke