سلام . باز هم همان error را داد !
Public Function insertCom(ByVal insString As String, ByVal tblString As String) As DataSet
Dim ds As New DataSet
' Try
Dim cmd As New OleDbCommand(insString, connection)
Dim adapter As New OleDbDataAdapter(cmd)
connection.Open()
cmd.ExecuteNonQuery()
adapter.Fill(ds, tblString)
' Catch ex As Exception
'MessageBox.Show("عملیات درج انجام نمی شود")
'End Try
Return ds
End Function
در رویداد کلیک برای ثبت هم
Private Sub btnN_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnN.Click
If btnN.Text = "جدید" Then
If txtNname.Text <> "" AndAlso txtNtel.Text <> "" Then
Dim str As String = "insert into TelNeed values('" & txtNname.Text & "','" & txtNtel.Text & "')"
Dim dset As DataSet = FunctionDb.insertCom(str, " TelNeed")
FunctionDb.conClose()
DataGridViewN.DataSource = dset.Tables("TelNeed")
Else
MessageBox.Show("لطفا فیلدها را پر کنید", "خطا", MessageBoxButtons.OK, MessageBoxIcon.Error)
End If
End If
End Sub