ramsess
دوشنبه 28 شهریور 1390, 15:07 عصر
سلام دوستان من کد اتصال و درج در بانک رو نوشتم خطا نمی گیره ولی هیچی ذخیره نمی شه لطفا راهنمایی بفرمائید مشکلم کجاست:
Imports System.Data
Imports System.Data.SqlClient
Imports System.IO
Public Class Form1
Private strsql As String
Private con As SqlConnection
Private da As SqlDataAdapter
Private com As SqlCommand
Private ds As DataSet
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
'TODO: This line of code loads data into the 'TestDbDataSet.members' table. You can move, or remove it, as needed.
Me.MembersTableAdapter.Fill(Me.TestDbDataSet.membe rs)
Dim strcon As String
strcon = "Data source=192.168.0.202;Initial catalog=TestDb;Integrated security=True"
con = New SqlConnection(strcon)
con.Open()
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim com As SqlCommand
strsql = "INSERT INTO members(Username,Email) VALUES (' " & TextBox1.Text & " ','" & textbox2.Text & "')"
com = New SqlCommand(strsql, con)
'con.Open()
'com.ExecuteNonQuery()
con.Close()
MsgBox(" ")
End Sub
End Class
Imports System.Data
Imports System.Data.SqlClient
Imports System.IO
Public Class Form1
Private strsql As String
Private con As SqlConnection
Private da As SqlDataAdapter
Private com As SqlCommand
Private ds As DataSet
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
'TODO: This line of code loads data into the 'TestDbDataSet.members' table. You can move, or remove it, as needed.
Me.MembersTableAdapter.Fill(Me.TestDbDataSet.membe rs)
Dim strcon As String
strcon = "Data source=192.168.0.202;Initial catalog=TestDb;Integrated security=True"
con = New SqlConnection(strcon)
con.Open()
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim com As SqlCommand
strsql = "INSERT INTO members(Username,Email) VALUES (' " & TextBox1.Text & " ','" & textbox2.Text & "')"
com = New SqlCommand(strsql, con)
'con.Open()
'com.ExecuteNonQuery()
con.Close()
MsgBox(" ")
End Sub
End Class