Sub 添加_OnClick(ByVal sender As Object, ByVal e As EventArgs)
Dim SqlConn As New SqlConnection
SqlConn.ConnectionString = "Persist Security Info=true;Initial Catalog=Data;uid=sa;pwd=123456;Data Source=.;"
SqlConn.Open()
Dim SqlCmd As New SqlCommand
SqlCmd.Connection = SqlConn
SqlCmd.CommandText = "Insert into #table (客户编号,性别,电话,电子信箱,地址,住址)values('" & 客户编号.Text & "','" & 性别.Text & "','" & 电话.Text& "','" & 电子信箱.Text & "'," & 地址.Text & ",'" & 住址.Text & "')"
SqlCmd.ExecuteNonQuery()
SqlConn.Close()
End Sub
取消
评论