15-11-12, 09:52 PM
سعود كتب :ان شالله احد الاخوان يساعدنا ..لكن ممكن تكتب كود الاضافة هنا عشان اجرب؟
جزاك الله خيراً على المساعده ..
تفضل
إقتباس :Try
Dim strs As String = "INSERT INTO odo_mota (odo_mot_name) VALUES ('" & TextBox1.Text & "')"
Dim sdas As New SqlDataAdapter(strs, Class1.sqlcon)
Dim dss As New DataSet
sdas.Fill(dss)
MsgBox("Done")
Catch ex As Exception
MsgBox(ex.Message)
MsgBox("Erorr")
End Try

