VB.netPostgresql调用，NpgsqlDataReader，NpgsqlDat。。。
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
Postgresql调⽤，NpgsqlDataReader，NpgsqlDat。
VB环境调⽤Npgsql包读取数据库的例⼦太少了。
在⽹上找了好久都没找到例⼦。
NpgsqlDataReader的使⽤⽅法，查询字段信息。
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
If TextBox1.Text = ""Then
MessageBox.Show("请填写ID")
Exit Sub
End If
Dim cn As New NpgsqlConnection
Dim scmd As New NpgsqlCommand Dim dr As NpgsqlDataReader Dim strSSQL As String
Try
cn.ConnectionString = "Server=192.168.1.101;Port=5432;User Id=admin;Password=admin;Database=db;"
cn.Open()
strSSQL = "SELECT dataname FROM public.datainfo where datasyu = '" + TextBox1.Text + "'"
scmd.Connection = cn
mandText = strSSQL
dr = scmd.ExecuteReader()
If (dr.HasRows) Then
While (dr.Read())
'MessageBox.Show(dr(0))
TextBox2.Text = dr(0)
End While
End If
Catch ex As Exception
Throw ex
Finally
cn.Close()
dr = Nothing
scmd = Nothing
cn = Nothing
End Try
end sub
NpgsqlDataAdapter 的使⽤⽅法，查询结果集信息。
Public conn As NpgsqlConnection = New NpgsqlConnection("Server=192.168.1.101;Port=5432;User Id=admin;Password=admin;Database=db;")
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
If TextBox1.Text = ""Then
MessageBox.Show("请输⼊ID")
Exit Sub
End If
Dim Sql2 = "SELECT colno ,colname FROM public.datacolinfo where datasyu = '" + TextBox1.Text + "'"
Dim dt As DataTable = New DataTable()
Dim da As NpgsqlDataAdapter = New NpgsqlDataAdapter(Sql2, conn)
da.Fill(dt)
DataGridView1.AutoGenerateColumns = True
DataGridView1.DataSource = dt
End Sub
对你有帮助的话你就点个赞！。