klo fungsi yg ingin di buat jelas hanya untuk select data, mungkin
lebih baik langsung aja seperti ini :
objDataTable.Reset()
strSQL = ("SELECT * FROM [username] WHERE username='" &
Me.TextBox1.Text & "'")
objDataAdapter = New OleDbDataAdapter(strSQL,myConnection)
objDataAdapter.Fill(objDataTable, "username")
FYI, untuk object DataAdapter koneksi akan open dan close dengan
sendirinya, jd tidak perlu dituliskan secara explisit.
Salam,
Agus Pradikta
--- In [email protected], G47O7 <[EMAIL PROTECTED]> wrote:
>
> Dear All,
>
> Saya baru belajar vb.net n mau nanya ma temen2 semua mengenai
connection
> database vb.net dimana saya mengalami error berikut sourcenya :
>
> Class dbConn.vb
>
> Imports System.Data
> Imports System.Data.OleDb
> Namespace AccessData
> Public Class dbConn
> Dim strConn As String = "Provider=Microsoft.Jet.OLEDB.4.0; Data
> Source=database.mdb;"
> Dim conn As New OleDbConnection(strConn)
> Public Function open() As OleDbConnection
> conn.Open()
> Return conn
> End Function
> Public Function close() As OleDbConnection
> conn.Close()
> Return conn
> End Function
> End Class
> End Namespace
>
> untuk proses login form1.vb sebagai berikut
>
> Imports System.Data
> Imports System.Data.OleDb
> Imports System.Windows.Forms
>
> Public Class login
> Dim myConnection As New AccessData.dbConn
> Private Sub login_Load(ByVal sender As System.Object, ByVal e As
> System.EventArgs) Handles MyBase.Load
> With Me
> .Button1.Text = "Login"
> .Button2.Text = "Cancel"
> End With
> End Sub
>
> Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As
> System.EventArgs) Handles Button2.Click
> End
> End Sub
>
> Sub checkUser()
> objDataTable.Clear()
> strSQL = ("SELECT * FROM [username] WHERE username='" &
> Me.TextBox1.Text & "'")
> objCommand = New OleDbCommand
> objCommand.Connection = connect
> objCommand.CommandType = CommandType.Text
> objCommand.CommandText = strSQL
> objDataAdapter = New OleDbDataAdapter(objCommand)
> objDataAdapter.Fill(objDataShet, "username")
> objDataTable = objDataShet.Tables("username")
> End Sub
>
> Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As
> System.EventArgs) Handles Button1.Click
> checkUser()
> End Sub
> End Class
>
> Yang jadi masalah pada objCommand.connection =connect katanya tidak
> terdifinisikan menurut temen2 dimana ya yang kurang
>
> Thk
>
> --
> IGOS (Indonesia Gos To Open Source)
> YM :[EMAIL PROTECTED]
>
