Koneksi Vb ke Sql Server 200

KONEKSI VISUAL BASIC (VB) KE SQL SEERVER 2000

Bahasa Pemrograman VB merupakan b. program yang mudah dipelajari dan diaplikasikan dengan banyak database, salah tiaga diantaranya adalah Sql Server, Ms. Access dan MySQL. Pada pembahasan kali ini penulis akan menggunakan database Sql Server 2000 dengan metode koneksinya ADODB. Adapun langkahnya adalah sebagai berikut:

1. Deklarasikan pada modul. (Asumsikan akan membuat program yang cukup komplek).

    Public koneksi As String

    Public cnn As New ADODB.Connection

    Sub sambung()
      koneksi = "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;

      Initial Catalog=DBPenjualan;Data Source= namasql_serverPC"
      cnn.ConnectionString = koneksi
      cnn.Open
    End Sub 

2. Berikut deklarasikan pada Form @general deklarasi

    Option Explicit

    Public Rs As New ADODB.Recordset

3. Dan berikut adalah penggunaanya untuk bahasa sql;

   MSql = "SELECT * FROM Tb_Barang WHERE KD='" & Trim(Txtkd.Text) & "'" & " And " & " 

   SUBSTRING(KD,1,2) ='" & Trim(Txtkd.Text) & "'" & " And " & " 

   SUBSTRING(KDSUP,2,1) ='" & Trim(Txtksub.Text) & "'"
   Set Rs = cnn.Execute(MSql) 

4. Selesai dan selamat mencoba

5. Must be Tried