VB.net里datagridview连接数据库后添加数据的代码

weixin_42058008 2018-04-24 04:06:52
询问datagridview里添加数据的代码,链接了sql数据库。一个form里有6个textbox,一个button,按下button,textbox里输入的数据就显示在datagridview里。求代码。百度上都是C#的,都没有VB.net。。。
...全文
1072 6 打赏 收藏 转发到动态 举报
写回复
用AI写文章
6 条回复
切换为时间正序
请发表友善的回复…
发表回复
weixin_41643445 2018-04-27
  • 打赏
  • 举报
回复
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 将数据库连接改成自己的服务器,然后在语句中改成自己的列就可以了
weixin_42058008 2018-04-24
  • 打赏
  • 举报
回复
引用 3 楼 zbdzjx 的回复:
网上搜到的,说是可以把C#转换成VB.Net,试试看。把网上找到的C#代码转换成VB.Net的,再调试一下。 http://www.carlosag.net/Tools/CodeTranslator/
非常感谢!我还没试,但感觉应该有用。
zbdzjx 2018-04-24
  • 打赏
  • 举报
回复
网上搜到的,说是可以把C#转换成VB.Net,试试看。把网上找到的C#代码转换成VB.Net的,再调试一下。 http://www.carlosag.net/Tools/CodeTranslator/
weixin_42058008 2018-04-24
  • 打赏
  • 举报
回复
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 我这样编,好像不太对,哪里可以修改吗
weixin_42058008 2018-04-24
  • 打赏
  • 举报
回复
没人能回答一下吗。。。

16,552

社区成员

发帖
与我相关
我的任务
社区描述
VB技术相关讨论,主要为经典vb,即VB6.0
社区管理员
  • VB.NET
  • 水哥阿乐
  • 无·法
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧