vbnet数据库编程（vb.net+数据库编程问题）

本文目录

• vb.net+数据库编程问题
• VB.Net数据库编程的问题
• VB.net语言编程，反复调用SQL语句编写的数据读取函数来读取数据库Access中的数据，出现崩溃的问题
• vb.net的数据库连接
• 我是新手学习VB.NET数据库编程，我想知道如何用DataGridView显示数据库中的数据

vb.net+数据库编程问题

使用OleDb将数据库绑定datagridview，然后添加RowHeaderMouseClick事件，在此事件中定义选中某一行后在textbox中显示相应的数据，在添加的按钮中定义打开form2，用sql语句查询数据库得到想要的关键字所关联的数据，显示出来就可以了。这里我给你一部分我写过的代码，基本上和你的要求很像，但是不完全一样，你自己研究研究，改改应该就可以了。 ’datagridview绑定数据库 Public Class form1Private ObjetConnection As OleDbConnectionPrivate ObjetCommand As OleDbCommandPrivate ObjetDataAdapter As OleDbDataAdapterPrivate ObjetSet As New DataSet() ’ SQL语句 Private strSql As StringPrivate ObjetDataTable As DataTablePrivate ObjetDataRow As DataRowPrivate Numeroligne As Integer ’定义路径 Private strConn As StringPrivate ObjetCommandBuilder As OleDbCommandBuilderDim dv As New DataViewPrivate Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load strConn ="Provider=Microsoft.ACE.OLEDB.12.0; Data source=" & Application.StartupPath & "\文件名.accdb" /此处文件路径 strSql ="Select * 表名 " ObjetConnection =New OleDbConnection()ObjetConnection.ConnectionString = strConn ObjetConnection.Open() ObjetCommand =New OleDbCommand(strSql) ObjetDataAdapter =New OleDbDataAdapter(ObjetCommand) ObjetCommand.Connection() = ObjetConnection ObjetDataAdapter.Fill(ObjetSet,"表明") dv.Table = ObjetSet.Tables("表名")DataGridView1.DataSource = dv　 ObjetConnection.Close()End Sub/此处是RowHeaderMouseclick事件Private Sub DataGridView1_RowHeaderMouseClick(sender As Object, e As DataGridViewCellMouseEventArgs) Handles DataGridView1.RowHeaderMouseClick此处添加显示表中相应信息Me.TextBox1.text = DataGridView1.SelectedRows(0).Cells(0).ValueMe.TextBox2.text = DataGridView1.SelectedRows(0).Cells(1).Value.........End Sub

VB.Net数据库编程的问题

你的这个只写删除datagrid表格里的数据啦...跟本就没有写删除数据库的.也没有更新数据库的.以下是删除按钮的代码..If MsgBox("数据删除不可恢复，确认删除数据么？", vbYesNo) = vbYes Thenrec.Deleterec.MoveNextrec.RequeryEnd If以下是form窗体的datagrid显示数据表的代码:If rec.State = adStateOpen Then rec.CloseSQL = "select * from jbxx" ’定义sql查询语句rec.Open SQL, con, adOpenStatic, adLockOptimistic ’打开记录集Set dg.DataSource = rec ’用datagrid控件显示记录集以下是模块..Public con As New Connection ’定义数据连接，公共变量Public coon, coom As StringSub Main()ChDir App.Path ’转换相对路径con.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=cq.mdb;Persist Security Info=False"’定义数据库连接con.CursorLocation = adUseClient ’以客户端的方式打开con.Open ’ 打开连接登陆.ShowEnd Sub希望能帮到你...

VB.net语言编程，反复调用SQL语句编写的数据读取函数来读取数据库Access中的数据，出现崩溃的问题

下面这段代码中，myReader，myCon的关闭应在WHILE循环外。这还不是主要问题，如果你只读取首行首列不要用OleDbDataReader，直接用myCommand.ExecuteScalar就可以了，只要判断一下myCommand.ExecuteScalar返回是否为nothing就行。效率会高很多。While myReader.Read If myReader.Item(0) Is System.DBNull.Value Then Return "" Else Return myReader.Item(0) End If myReader.Close() myCon.Close() End While

vb.net的数据库连接

1·绑定数据源来进行连接2.用代码连接先到数据库建立一个数据库和相应的表连接数据库的代码： Dim str As String = "Data Source=服务器名;Initial Catalog=数据库名;Persist Security Info=True;User ID=;Password=" dim conn As SqlClient.SqlConnectiontry conn = New SqlClient.SqlConnection conn.ConnectionString = str conn.Open() Return True Catch ex As Exception MsgBox(ex.ToString) Return False End Try登录代码：Dim str As String = "Data Source=服务器名;Initial Catalog=数据库名;Persist Security Info=True;User ID=;Password=" dim conn As SqlClient.SqlConnection conn = New SqlClient.SqlConnection conn.ConnectionString = str conn.Open()sqlstr = "Select * From Amd Where AmdName=’" & TextBox1.Text & "’ And AmdPwd = ’" & TextBox2.Text & "’" Dim sqlcmd As SqlClient.SqlCommand = New SqlClient.SqlCommand(sqlstr, conn) Dim dr As SqlClient.SqlDataReader dr = sqlcmd.ExecuteReader If dr.Read = True Then ’判断一条记录为真 kf.Show() ’显示下个窗体 Me.Hide() ’隐藏当前窗体 Else MessageBox.Show("输入信息有误！", "提示") TextBox1.Text = "" TextBox2.Text = "" End If

我是新手学习VB.NET数据库编程，我想知道如何用DataGridView显示数据库中的数据

1.前台配置数据源，那样显示有局限性。2.用代码绑定数据源，一般都是采用这种方法，其实很简单的。可以参考小小的世界论坛。