vb怎样将sql数据库中的一个数值读取到变量中

2024-11-03 10:18:59

推荐回答（2个）

回答1：

'看你的代码不是vb6.0的，我有现成的vb.net下面的SQl操作模块，你直接调用就可以了
'一共2个函数，DataModify用来更新数据库操作，Search用来查询数据库
Imports System.Data
Imports System.IO
Imports System.Data.SqlClient
Module Module1
Public cn As New SqlConnection("Data Source=ip地址或者电脑名;Initial Catalog=数据库名;User ID=用户名;Password=密码") '定义数据库连接
Public DataBaseRST As Integer'用来返回数据库执行结果---数据更新了多少条
Public Function DataModify(ByVal str AsString) As Boolean'进行数据库修改操作函数
Dim cmdinsert As New SqlCommand
Try
cmdinsert.CommandText = str
cmdinsert.Connection = cn
If cn.State = ConnectionState.Closed Then cn.Open()
DataBaseRST = cmdinsert.ExecuteNonQuery() '用来返回执行的结果
cn.Close()
Return True
Catch ex As Exception
MessageBox.Show(Err.Description, "Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
Return False
End Try
End Function
Public Function Search(ByVal str AsString) As DataTable '查询 str---查询命令 tb是返回的数据表
Dim tb As New DataTable
Try
Dim ap As New SqlDataAdapter(str, cn)
ap.Fill(tb)
Return tb
Catch ex As Exception
MessageBox.Show(Err.Description, "Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
Return Nothing
End Try
End Function
End Module

'下面是调用举例----在窗体Form1类中的Button1按钮下
Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
'以下执行更新操作
If DataModify("delete from a表 where a表字段1='内容'") = True Then
MsgBox("更新成功")
Else
Exit Sub
End If
'下面执行查询操作
Dim tb As DataTable = Search("select * from a表")
If tb Is Nothing Then
Exit Sub
End If
If tb.Rows.Count > 0 Then
MsgBox(tb.Rows(0).Item(0).ToString) '这里的tb.Rows(0).Item(0)表示第一行第一列的值
End If
End Sub
End Class

回答2：

从表的SELECT MAX（场）
Cell.Value =字段值
可能的话，检查VB连接到数据库表

最新问答

梦幻西游群P，帮战一般用什么阵？

有哪些介绍中世纪欧洲城堡的书，而且可以确定在网上能买到，书里介绍了城堡的构造，人们怎么生活，关于爵

娃哈哈AD钙奶老人喝会有一样的营养吗？老爸（66岁）

来月经的时候，能够吃点当归养血颗粒吗

遂平一高今年怎么招复读生我是理科学生高考成绩四百九十七分复读交多少钱

雅思报班，一对一好些还是大班课好

石家庄市南三条有批发整理箱⼀储物箱的在哪? 找了一天没找到#24

福建闽江学院的服装设计好么？怎样考？

在linux下，查看一个运行中的程序，占用了多少内存

在英语中如何表示方向，比如the N of N.N.E该如何翻译还有E.S.E and by E.Ten feet该如何翻译