ebrahimali
پنج شنبه 05 آبان 1390, 08:59 صبح
سلام من این کد رو نوشتم در وی بی دات نت 2008 و با اکسس 2007 ارتباط برقرار کردم .
وقتی اجرا می کنم . تو وی بی وقتی اطلاعات رو ثبت می کنم . تا در اکسس اطلاعات ثبت بشه این کد خطا
می دهد . ocon.Open() یک فلیش زرد رنگ نشان می دهد . لطفا کمکم کنید .
Imports System.Data
Imports System.Data.OleDb
PublicClass Form1
PrivateSub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim strcon AsString
strcon = "Provider=Microsoft.ACE.OLEDB.12.0;data source=" + CurDir() + "\DataBase.accdb"
Dim ocon AsNew OleDbConnection(strcon)
ocon.Open()
Dim strsql AsString
strsql = "insert into Users ([user-name],[pass-word]) values('" + txtusername.Text + "','" + txtpass.Text + "')"
Dim ocom AsNew OleDbCommand(strsql, ocon)
Try
ocom.ExecuteNonQuery()
Catch ex As Exception
MessageBox.Show(ex.Message)
ocon.Close()
EndTry
ocon.Close()
EndSub
EndClass
وقتی اجرا می کنم . تو وی بی وقتی اطلاعات رو ثبت می کنم . تا در اکسس اطلاعات ثبت بشه این کد خطا
می دهد . ocon.Open() یک فلیش زرد رنگ نشان می دهد . لطفا کمکم کنید .
Imports System.Data
Imports System.Data.OleDb
PublicClass Form1
PrivateSub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim strcon AsString
strcon = "Provider=Microsoft.ACE.OLEDB.12.0;data source=" + CurDir() + "\DataBase.accdb"
Dim ocon AsNew OleDbConnection(strcon)
ocon.Open()
Dim strsql AsString
strsql = "insert into Users ([user-name],[pass-word]) values('" + txtusername.Text + "','" + txtpass.Text + "')"
Dim ocom AsNew OleDbCommand(strsql, ocon)
Try
ocom.ExecuteNonQuery()
Catch ex As Exception
MessageBox.Show(ex.Message)
ocon.Close()
EndTry
ocon.Close()
EndSub
EndClass