mrt_Azm
پنج شنبه 09 آذر 1391, 15:06 عصر
با سلام
یه مطلب قبلا تو سایت دیدم الان میگردم نمیتونم پیدا کنم من با استفاده از OLDB یه برنامه نوشتم به شرح زیر
حالا بعد از بسته شدن برنامه داده هایی که وارد شده از بین می رود
اگه میشه کمک کنید برای ثبت دائمی داده توی دیتا بیس باید چیکار کنیم ممنون میشم
Private Function Run_Cmd(ByVal st As String, ByVal ENQ As Byte) As DataSet
Dim ds1 As New DataSet
Dim cnn As New OleDbConnection
Dim cmd As New OleDbCommand
Dim da As New OleDbDataAdapter
cnn.ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=|DataDirectory|\Database.accdb;Persist Security Info=True;Jet OLEDB:Database Password=Azm918"
cnn.Open()
cmd.CommandText = st
cmd.Connection = cnn
ds1.Clear()
If ENQ = 1 Then
da.AcceptChangesDuringFill = True
da.AcceptChangesDuringUpdate = True
cmd.ExecuteNonQuery()
da.SelectCommand = cmd
Else
da.SelectCommand = cmd
da.Fill(ds1, "ResultTB")
End If
cnn.Close()
Run_Cmd = ds1
End Function
یه مطلب قبلا تو سایت دیدم الان میگردم نمیتونم پیدا کنم من با استفاده از OLDB یه برنامه نوشتم به شرح زیر
حالا بعد از بسته شدن برنامه داده هایی که وارد شده از بین می رود
اگه میشه کمک کنید برای ثبت دائمی داده توی دیتا بیس باید چیکار کنیم ممنون میشم
Private Function Run_Cmd(ByVal st As String, ByVal ENQ As Byte) As DataSet
Dim ds1 As New DataSet
Dim cnn As New OleDbConnection
Dim cmd As New OleDbCommand
Dim da As New OleDbDataAdapter
cnn.ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=|DataDirectory|\Database.accdb;Persist Security Info=True;Jet OLEDB:Database Password=Azm918"
cnn.Open()
cmd.CommandText = st
cmd.Connection = cnn
ds1.Clear()
If ENQ = 1 Then
da.AcceptChangesDuringFill = True
da.AcceptChangesDuringUpdate = True
cmd.ExecuteNonQuery()
da.SelectCommand = cmd
Else
da.SelectCommand = cmd
da.Fill(ds1, "ResultTB")
End If
cnn.Close()
Run_Cmd = ds1
End Function