在vb中调用access数据库,能不能使用sql 语句?最好有例子....

Question

源程序最好了,我的邮箱是[email protected]

Answer 1

比如说data控件
set data2.recordset=data1.Database.Execute "SELECT * FROM [TableName]"或者
data1.Database.Execute "DELETE FROM [TableName]"

Answer 2

我想做个写日记的小程序,需要将日记的内容存在access数据库中.我不知道应该怎么做这个数据库和怎么写vb语句,怎么查询等等.有没有这方面的例子或者是源程序......谢谢各位了

Answer 3

建议你用ADO系列控件！如果需要，我将说明！

Answer 4

直接在
data控件的recordsource里输入select * from 表名 where ........就行了
如果是ADO对象
都是差不多但建立连接字麻烦一点可以先用ADO控件生成连接字符串然后COPY出来就OK了...最好还是看看书...

Answer 5

http://www.wzjcw.net/vbgood/taishan/index.html

Answer 6

http://www.wzjcw.net/vbgood/taishan/index.html【19种打开数据库的方法】源代码

Answer 7

    Dim Cn As ADODB.Connection
    Dim Rs As ADODB.Recordset
    
    Dim str As String
    str = "Provider=Microsoft.Jet.OLEDB.4.0;Jet OLEDB:Database Password=" & txtAccessPassWord & ";Data Source=" & txtAccessFile.Text & ";Persist Security Info=False"
    Set Cn = New ADODB.Connection
    Cn.Open str
    
    Set Rs = New ADODB.Recordset
    Set Rs.ActiveConnection = Cn
    Rs.CursorLocation = adUseClient
    Rs.LockType = adLockOptimistic
    Rs.CursorType = adOpenStatic
    
    Dim strSql As String
    strSql = ".............."  '这句就是你的Sql语句
    Rs.Open strSql             '打开Sql
    
    Rs.Close                   '关闭RecordSet
    
    Cn.Close
    Set Rs = Nothing
    Set Cn = Nothing
'注txtaccesspassword: access的密码文本筐 txtaccessfilename:  access的文件路径和文件名文本筐。

Answer 8

第一步：建立连接
第二步：写SQL语句
第三步：执行dim Cnn as adodb.connection
dim sCmd as adodb.command
dim SQL as string
dim CnnStr as string
第一步：
set Cnn =new adodb.connection
Cnnstr="provider=microsoft.jet.oledb.4.0;data source=" & App.Path & "\SHZJ.MDB"
cnn.open CnnStr第二步：
SQL="........"第三步：
set sCmd=new adodb.command
scmd.activteconnection=Cnn
scmd.commandtext=sql
scmd.execute结束
清空变量

Answer 9

：　feihong0233(泓)　
你的字典程序,我想要参考一下,谢谢你..
[email protected]谢谢各位关注这个铁子!!!谢谢!!谢谢!!1

Answer 10

to: hycapril1(新年快乐~~)　你和作者不是同一个人吧！？

Answer 11

??
建议你还是先去看看VB书吧,<<中文Visual Basic6.0傻瓜书>>清华大学出版社
或用左手食指按键盘左上角Esc键右边的那个F1键查查MSDN吧, :)

Answer 12

''''''''''连接数据库
Public adoCNAccess As New ADODB.Connection '定义数据库的连接存放数据和代码
Public SqlCommand As New ADODB.Command     '定义 SQL 命令
    With adoCNAccess
        If .State <> adStateOpen Then
            .ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False;Data Source=" & cProgramPath & "Trade.mdb" ';password=allway"
            .ConnectionTimeout = 5
            .Open
            If .State = adStateOpen Then
                OpenAccess = "数据库连接成功"
            Else
                OpenAccess = "数据库连接失败，请按帮助进行检查 ！"
                MsgBox "数据库连接失败，请找系统管理员进行检查 ！", 16, cProgramName
                End
            End If
        End If
    End With'2.定义Sql
dim StrSql as string
StrSql=".........."set SqlCommand=new ADODB.Command     
SqlCommand.activteconnection=adoCNAccess
SqlCommand.commandtext=StrSql
SqlCommand.execute

Answer 13

http://www.vbeden.com/vbcode/code_6/code_6-2.htm
你自己可以去下载，有很多例子！

Answer 14

：　ferrytang(楼上的你悠着点!!!)　
谢谢了.............

Answer 15

：　ferrytang(楼上的你悠着点!!!)　
谢谢了.............   

Answer 16

Dim adoConn As New ADODB.Connection
    Dim adoRs As New ADODB.Recordset
    Dim SqlStr As String
    
    '连接数据库
    adoConn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" + App.Path + "\data.mdb;Persist Security Info=False"    SqlStr = "Select * from tblApp Where fldAppType=" + CStr(iTypeID)
    adoRs.Open SqlStr, adoConn    While Not adoRs.EOF
        strKeyValue = GetKeyValue(GetKeyRoot(adoRs!fldRegKeyRoot), adoRs!fldRegKeyName, IIf(IsNull(adoRs!fldRegSubKeyRef), "", adoRs!fldRegSubKeyRef))
        strAppPath = GetAppPath(strKeyValue, adoRs!fldRegKeyValueStyle)
        strAppPath = ReplaceSysPath(strAppPath)
        If strAppPath <> vbNullString Then
            If Dir(strAppPath) <> "" Then
                bHasFileInfo = GetFileInfo(strAppPath, tVerInfo)
                GetAppIcon strAppPath, lIcon
                Set itmX = lvListView.ListItems.Add
                itmX.Text = IIf(bHasFileInfo = True, tVerInfo.FileDescription, GetFileName(strAppPath))
                itmX.SubItems(1) = IIf(bHasFileInfo = True, tVerInfo.FileVersion, "无")
                Set AppIcon = imglstAppIcon(0).ListImages.Add(, strAppPath, CreateBitmapPicture(lIcon, vbNull, RT_ICON))
                Set AppIcon = imglstAppIcon(1).ListImages.Add(, strAppPath, CreateBitmapPicture(lIcon, vbNull, RT_ICON))
                iRet = DestroyIcon(lIcon)
                itmX.Icon = strAppPath
                itmX.SmallIcon = strAppPath
                itmX.Tag = strAppPath
                    
            End If
        End If
        adoRs.MoveNext
    Wend
    
        
    adoRs.Close
    adoConn.Close