pedram_ns
چهارشنبه 03 آذر 1389, 15:42 عصر
سلام
من با کد های زیر یکسری اطلاعات رو در دیتابیسم می ریزم.
1. اطلاعات در دیتابیس ثبت می شه ولی وقتی برنامه رو می بندم و دوباره باز می کنم رکورد های قبلی که وارد کردم پاک می شه؟
2.همونطور که می بینید من ارتباط با دیتابیس رو بعد از انجام کار می بندم ولی باز هم باز می مونه؟
Try
Dim con As New OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & Application.StartupPath & "\database.accdb")
Dim StrSql As String = "insert into anbar ([kala_number], [kala_name], [count], [description]) VALUES (@kala_number, @kala_name, @count, @description) "
Dim cmd As OleDbCommand = New OleDbCommand(StrSql, con)
cmd.CommandType = CommandType.Text
cmd.Parameters.AddWithValue("kala_number", kala_number.Text)
cmd.Parameters.AddWithValue("kala_name", kala_name.Text)
cmd.Parameters.AddWithValue("count", count.Text)
cmd.Parameters.AddWithValue("description", description.Text)
con.Open()
cmd.ExecuteNonQuery()
kala_name.Text = ""
kala_number.Text = ""
description.Text = ""
count.Value = "1"
messagelbl.Visible = True
messagelbl.Text = "کالای جدید اضافه شد."
con.Close()
Catch ex As Exception
messagelbl.Visible = True
messagelbl.Text = "کالای جدید اضافه نشد لطفا مجددا اقدام نمایید."
End Try
من با کد های زیر یکسری اطلاعات رو در دیتابیسم می ریزم.
1. اطلاعات در دیتابیس ثبت می شه ولی وقتی برنامه رو می بندم و دوباره باز می کنم رکورد های قبلی که وارد کردم پاک می شه؟
2.همونطور که می بینید من ارتباط با دیتابیس رو بعد از انجام کار می بندم ولی باز هم باز می مونه؟
Try
Dim con As New OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & Application.StartupPath & "\database.accdb")
Dim StrSql As String = "insert into anbar ([kala_number], [kala_name], [count], [description]) VALUES (@kala_number, @kala_name, @count, @description) "
Dim cmd As OleDbCommand = New OleDbCommand(StrSql, con)
cmd.CommandType = CommandType.Text
cmd.Parameters.AddWithValue("kala_number", kala_number.Text)
cmd.Parameters.AddWithValue("kala_name", kala_name.Text)
cmd.Parameters.AddWithValue("count", count.Text)
cmd.Parameters.AddWithValue("description", description.Text)
con.Open()
cmd.ExecuteNonQuery()
kala_name.Text = ""
kala_number.Text = ""
description.Text = ""
count.Value = "1"
messagelbl.Visible = True
messagelbl.Text = "کالای جدید اضافه شد."
con.Close()
Catch ex As Exception
messagelbl.Visible = True
messagelbl.Text = "کالای جدید اضافه نشد لطفا مجددا اقدام نمایید."
End Try