UC知道一个关于Basic语言的问题
来源：百度知道 编辑：UC知道 时间：2024/05/13 09:48:47
最近在用vb2008做一个项目 涉及到数据库 可是出了点问题：”找不到可安装的 ISAM。“望贤能智士解决 。下面是代码 （work.mdb 放在工程目录的bin\debug下）
Imports System.Data
Imports System.Data.OleDb
Public Class Form1
Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged
End Sub
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim connStr, selectCmd As String, i As Integer
connStr = _
"Provider=Microsoft.Jet.OLEDB.4.0;date Source=work.mdb"
selectCmd = "SELECT * from score"
Dim conn As OleDbConnection, cmd As OleDbCommand, reader As OleDbDataReader
conn = New OleDbConnection(connStr)
conn.Open()
cmd = New OleDbCommand(selectCmd, conn)
reader = cmd.ExecuteReader()
For i = 0 To reader.FieldCount - 1
Text
Imports System.Data
Imports System.Data.OleDb
Public Class Form1
Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged
End Sub
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim connStr, selectCmd As String, i As Integer
connStr = _
"Provider=Microsoft.Jet.OLEDB.4.0;date Source=work.mdb"
selectCmd = "SELECT * from score"
Dim conn As OleDbConnection, cmd As OleDbCommand, reader As OleDbDataReader
conn = New OleDbConnection(connStr)
conn.Open()
cmd = New OleDbCommand(selectCmd, conn)
reader = cmd.ExecuteReader()
For i = 0 To reader.FieldCount - 1
Text
connStr="Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False;Data Source=" & app.path & "\work.mdb"
前提是你的work.mdb要在程序目录下
补充:
你的工程保存了没有,你先把工程保存一下,比如存到桌面的"aa"文件夹里,然后把work.mdb也放到aa文件夹里就行了