koorosh-soft
سه شنبه 29 آذر 1390, 01:01 صبح
سلام دوستان
به محض اجرای فرم تمامی داده های موجود در table پاک میشه یا اگر insert into باشه یک رکورد خالی به دیتابسی اضافه میشه ! مشکل کجاست ؟
VS2010
Access 2007
مشکل کجاست ؟
Imports System.Data
Imports System.Data.OleDb
Public Class Edit
Dim cmd_text As String = ""
Dim cnn As New OleDbConnection(connectionString)
Dim cmd As New OleDbCommand(cmd_text)
Private Sub Edit_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
cmd_text = "DELETE Contacts. FROM(Contacts) WHERE (((Contacts.[Last Name]) LIKE '{0}'));"
cmd_text = String.Format(cmd_text, TextBox1.Text)
cmd = New OleDbCommand(cmd_text, cnn)
If cnn.State = ConnectionState.Closed Then cnn.Open()
cmd.ExecuteNonQuery()
End Sub
End Class
به محض اجرای فرم تمامی داده های موجود در table پاک میشه یا اگر insert into باشه یک رکورد خالی به دیتابسی اضافه میشه ! مشکل کجاست ؟
VS2010
Access 2007
مشکل کجاست ؟
Imports System.Data
Imports System.Data.OleDb
Public Class Edit
Dim cmd_text As String = ""
Dim cnn As New OleDbConnection(connectionString)
Dim cmd As New OleDbCommand(cmd_text)
Private Sub Edit_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
cmd_text = "DELETE Contacts. FROM(Contacts) WHERE (((Contacts.[Last Name]) LIKE '{0}'));"
cmd_text = String.Format(cmd_text, TextBox1.Text)
cmd = New OleDbCommand(cmd_text, cnn)
If cnn.State = ConnectionState.Closed Then cnn.Open()
cmd.ExecuteNonQuery()
End Sub
End Class