Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim conn As New OleDbConnection
Dim cmd As New OleDbCommand
Dim ap As New OleDbDataAdapter
Dim mytable As New DataSet
conn.ConnectionString = "Provider=sqloledb;Data Source=‘服务器名称‘;Initial Catalog=数据库名称;Persist Security Info=True;User ID=;Password="
conn.Open()
Dim str As String
str = "INSERT INTO [hxxhp].[dbo].[rjhscl] ([列名],[列名],[列名],[列名],[列名],[列名],) VALUES ('" & Trim(TextBox1.Text) & "','" & Trim(TextBox2.Text) & "','" & Trim(TextBox3.Text) & "','" & Trim(TextBox4.Text) & "','" & Trim(TextBox5.Text) & "','" & Trim(TextBox6.Text) & "')"
cmd = New OleDbCommand(str, conn)
Try
cmd.ExecuteNonQuery()
MessageBox.Show("修改成功!")
conn.Close()
Catch ex As Exception
MessageBox.Show("修改失败!")
conn.Close()
End Try
End Sub
将数据库连接改成自己的服务器,然后在语句中改成自己的列就可以了
Dim sc As New SqlClient.SqlConnection("Data Source=LENOVO-PC;Initial Catalog=shiyan;Integrated Security=True")
Try
sc.Open()
Dim msc1 As New SqlCommand()
msc1.Connection = sc
msc1.CommandText = "delete from sccj"
msc1.ExecuteNonQuery()
Dim result As DialogResult = MessageBox.Show("是否删除当前数据?", "提示", MessageBoxButtons.YesNo, MessageBoxIcon.Information)
If (result = DialogResult.Yes) Then
End If
Return
Dim sqlID As String
sqlID = "select*from sccj"
Dim cmd As New SqlCommand(sqlID, sc)
Dim da As New SqlDataAdapter(cmd)
Dim ds As New DataSet
da.Fill(ds, "sccj")
DataGridView1.DataSource = ds
DataGridView1.DataMember = "sccj"
sc.Close()
Finally
End Try
我这样编,好像不太对,哪里可以修改吗