当前位置:首页 » 数据仓库 » vb2010数据库编程
扩展阅读
webinf下怎么引入js 2023-08-31 21:54:13
堡垒机怎么打开web 2023-08-31 21:54:11

vb2010数据库编程

发布时间: 2023-01-17 21:41:11

1. vb2010数据库操作

把;User ID=sa;Password=""删掉试试

2. 用VB2010制作数据库安装程序时,如何把数据库文件打包进去

就是在你做安装部署时,在“目标计算机上的文件系统”的“应用程序文件夹”上右键,“添加”-“文件夹...”,把你的数据库文件添加到安装部署里就行了。

3. VB2010编写的链接sql数据库代码,在本机使用正常,到了其它电脑一直报错,错误代码:0x80040154

你好,其实这是和dll文件有关 本机环境已经在安装vb2010的时候和编译的时候配置好,换个电脑环境肯定不一样,所以写程序的时候要一步一步的检查一遍。

4. vb2010编程中数据库最后一项读取问题

select top 1 * from 你的表名 order 你的列名(最好是自动标识列) desc 意思就是,我根据自动标识列,取最后一条信息。 (order 列名 desc)是sql2005的写法, 不知道access是不是这么写的,如果不是,你在网络上找找access拍倒序。就可以了。

麻烦采纳,谢谢!

5. 如何通过vb2010编写一个程序,要求读取数据库并实时显示

此数据库每分钟增加一条记录,这个不用管对吧,另外数据库增加新的记录一般会有id列这样的唯一标识列,每增加一条记录id就增加,如果说读取最新的一条记录,也就是读取id列值最大的记录。
详细说明及代码一会补充
*一个Button按钮,一个textbox,数据库放在vb2010编辑器的debug文件夹下。

Imports System.Data.OleDb'接口
Public Class Form1
Dim txt As String
Dim sql As String
Dim da As OleDbDataAdapter
Dim ds As New DataSet
Dim conn As OleDbConnection = New OleDbConnection("Provider=Microsoft.Jet.Oledb.4.0; Data Source=money.mdb")
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
sql = "select top 1 * from 姓名 order by id desc" '以id倒序排列,并显示第一条记录
da = New OleDbDataAdapter(sql, conn) '通过dataDapter适配器,连接数据库
da.Fill(ds, "names") '将结果给dataSet内存中
For i = 0 To ds.Tables(0).Columns.Count - 1
txt = txt & " " & ds.Tables(0).Rows(0)(i).ToString() '通过循环将表中的第一条记录连接起来,以三个空格隔开
Next
TextBox1.Text = txt
dropDb()
End Sub
Sub dropDb() '释放对象
da = Nothing
ds = Nothing
conn = Nothing
End Sub
Sub cc()

End Sub
End Class

6. 如何使用VB2010连接网络mysql数据库

必须安装MYSQL的驱动才行,不管是VB还是c++都需要这个驱动。代码如下: Public Function exemysql(ByVal sql As String) As ADODB.Recordset sql = Trim$(sql) Set conn = New ADODB.Connection Set rs = New ADODB.Recordset conn.Open "Driver=MySQL ODBC 3.51 Driver;" & _ "Server=服务器地址;" & _ "Port=3306;" & _ "Database=数据库名;" & _ "Uid=用户名;" & _ "Pwd=密码" conn.DefaultDatabase = "数据库名" conn.CursorLocation = adUseClient Set rs.ActiveConnection = conn rs.LockType = adLockBatchOptimistic rs.CursorType = adOpenKeyset rs.Open sql Set exesql = rs Set rs = Nothing Set conn = Nothing End Function