Question

求VB源代码。。。我自己写了代码，但老出错，而且是各种错，特别菜啊！求帮助！！

提示位置 If Not Adodc1.Recordset.EOF Then

Answer 1

'先建立一个公共模块
Option Explicit
Public Function GetConnStr() As String
    Dim ConnString As String
                                                                                                                               
    '连接Access
    ConnString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\数据库名;Persist Security Info=False"
                                                                                                                               
    GetConnStr = ConnString
End Function
Public Function OpenConn(ByRef Conn As ADODB.Connection) As Boolean
'打开数据库连接，连接成功返回true，出错时返回false
    Set Conn = New ADODB.Connection
    '出错处理
    On Error GoTo Error_box
    Conn.Open GetConnStr
    OpenConn = True
    Exit Function
Error_box:
    MsgBox "连接数据库失败！请重新连接！"
    OpenConn = False
    Exit Function
End Function
Public Sub ExecuteSQL(ByVal SQL As String, ByRef msg As String)
    '执行SQL语句
    Dim Conn As ADODB.Connection
    '出错处理
    On Error GoTo Error_box
    '打开数据库连接
    If OpenConn(Conn) Then
        Conn.Execute SQL
        msg = "操作执行成功！"
    End If
    Exit Sub
Error_box:
    msg = "执行错误: " & Err.Description
    Set Conn = Nothing
    Exit Sub
End Sub
'*********************************************************************************************************************
'添加数据
Call ExecuteSQL("INSERT INTO 表名称(字段1,字段2,字段N) VALUES ('值1','值2','值N')", msg)
'注意:以上字段值如果为表达式并且是文本类型应采用如此格式:'" & 表达式 &"',如果是数值应为" & 表达式 &"
'删除数据
Call ExecuteSQL("DELETE FROM 表名称", msg)
'修改数据
Call ExecuteSQL("Update 表名称 SET 要修改的字段名='" & Trim(Text1.Text) & "' WHERE  条件='" & 表达式 & "'", msg)
'如:
Call ExecuteSQL("Update G借债 SET 姓名='" & Trim(Text1(0).Text) & "' WHERE 姓名='" & Lbl_str.Caption & "'", msg)

上面代码来源于网上。其实这些代码没什么难度，考验的是SQL的语句。

追问

追答

是不是提示参数不可选？
把If Not Adodc1.Recordset.EOF Then 这句改成：
If Not Adodc1.Recordset.EOF(1) Then

Answer 2

数据库的读取操作，应该不难，找找相仿的代码看看吧

Answer 3

不晓得你做的这个软件是用来干嘛的，没办法帮你解决 哈哈

Answer 4

数据库处理不容易

多实践吧

也不贴代码