Contoh koneksi untuk ke Database 2

Public Class Form1

Sub tambahkelompokadit()
Call mykoneksi()
Tampil.Connection = DataAdit
Tampil.CommandType = CommandType.Text
Tampil.CommandText = "select max(Nourut) as jum from Dataphoto"
Tampilkan = Tampil.ExecuteReader

If Tampilkan.HasRows = True Then
While Tampilkan.Read()
If IsDBNull(Tampilkan("jum")) Then

Else
adit = Tampilkan("jum")

End If

End While
Else
adit = 0
End If
'TextBox1.Text=adit+1

End Sub



Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
Call mykoneksi()

End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Call jurusan()

End Sub
Sub jurusan()
Call mykoneksi()
Tampil.Connection = DataAdit
Tampil.CommandType = CommandType.Text
Tampil.CommandText = "select * from jurusan where kdjur='" & Trim(TextBox1.Text) & "'"
' '" & Trim(Textboxt.Text)& "' ==>untuk karakter
' " & Val(Textboxt.Text)& " ==>untuk numeric
Tampilkan = Tampil.ExecuteReader

If Tampilkan.HasRows = True Then
'untuk menampilkan apakah recordnya ada atau tidak, jika true ada recordnya
While Tampilkan.Read()
If IsDBNull(Tampilkan("kdjur")) Then
TextBox2.Text = "-"
'untuk mengecek apakah di field kdjur apakah ada datanya atau tidak
Else
TextBox2.Text = Tampilkan("nmjur")
'cara untuk menampilkan data sebuah field
End If
End While
End If
End Sub

End Class