Kemungkinan anda tidak menggunakan perintah dim
coba Dim objCommand As New OleDbCommand
juga ada baiknya anda menggunakan fungsi parameter yg ada di oledbcommand
strSQL = ("SELECT * FROM [username] WHERE username='" & Me.TextBox1.Text &
"'")
sebaiknya diganti dengan
strSQL = ("SELECT * FROM [username] WHERE username= ?")
objCommand.Parameters.AddWithValue("@username",TextBox1.Text)
G47O7 <[EMAIL PROTECTED]>
06/23/2008 02:16 PM
Sent by: [email protected]
Please respond to
[email protected]
To
[email protected]
cc
Subject
[Programmer-VB] [ASK] Connection VB.NET
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]
