Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles MyBase.Load
cnGlavna.Open()
Dim sql_komanda As New OleDb.OleDbCommand("select polje form
tablica", cnGlavna)
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e
As System.EventArgs) Handles Button1.Click
If cnGlavna.State = ConnectionState.Open Then
MsgBox("Sve OK", MsgBoxStyle.OkOnly, "JA")
Else
MsgBox("Ups!", MsgBoxStyle.Exclamation, "JA")
End If
End Sub
End Class
--------------------
E sad trebam učitati podatke u nekakva textualna polja...
"NoNickName" je napisao u poruci interesnoj
grupi:9936a361-65e6-41f1...@i17g2000vbq.googlegroups.com...