想对CNMING说两句，我也认识MSALE，msale的BBS也非常好，我也经常去的，你作为斑竹对大家也非常负责任，但是我想毕竟CSDN的名气比较大，

Question

如题

Answer 1

没有打全，看我讲SSCE的帖子好了

Answer 2

其实我接触PDA莫过于半年左右的时间，当时是被msale.net的Miken硬性推为斑竹的，可以看到我的头衔根本没有挂斑竹，但是在斑竹列表中有我的名单，但是我认为既然有了这个任务，就要负起责任，所以也就这样了。目前又被Miken硬性推为msale.net的站长，现在共有5个站长，分配给我20%的权利和义务，不过我认为可能义务更大些，一直在寻找接替我的位置的人的想法就更无法实现了，心里在叫苦，但是也在感激Miken，毕竟这是人家对我的信任。
csdn在vb下设置evb板块是错误的选择，因此很少人能发觉EVB这个板块，我也是在出任msale.net的斑竹之后才偶然发现了这个板块，要知道，我在CSDN中注册为用户的时间已经不算短了，我曾经多次来过这里解答问题，但是我发觉这里的帖子数量完全不如msale.net的CE板块，没有多大意思，因此就没怎么来了，而且CSDN的积分机制，从某种意义上限制了人们解答的热情。

Answer 3

交个朋友当然可以了，但是很抱歉，我很少用QQ，而且我的QQ里头清一色是我的高中同学和大学同学，有问题的话就在这里留言好了，以无会友的哦

Answer 4

楼上的各位朋友。各位好。在下有一问题请教‘
Set rs = CreateObject("adoce.recordset.3.0")Dim a
Dim name
a = 444
name = op
rs.Open "update rs set id='" & a & "',name='" & name & "'", connDatabase, adOpenKeyset, adLockOptimistic
Text1.Text = rs.Fields("id").Value
下面的错误为什么？？？？an error was encountered 
while running this program;
varliable is undefined;'rs' 

Answer 5

在evb中怎样给表中插入记录。具体语句怎么写。象evb有这样的语句吗？？？？
update table set id='"&id1&"'
insert into.......
rs.addnew
.....
rs.update
若表中一条记录都没有 。该怎样向表中插入记录

Answer 6

Public conn As ADOCE.Connection                             '数据库连接
Public rs As ADOCE.Recordset                                '公共的数据库记录集Public strDBFilename As String                              '数据库文件名称Public strSQL As String                                     'SQL语句临时变量Public blnConnOpen As BooleanPublic Sub connClose()
                            '关闭数据库连接
    On Error Resume Next
    
    conn.Close
    blnConnOpen = False
    
    If Err Then
        Err.Clear
    End If
    
    Set conn = Nothing
    
    If Err Then
        Err.Clear
    End If
    
End SubPublic Function connOpen() As Boolean
                            '创建数据库连接
    On Error Resume Next
    
    If Err Then
        Err.Clear
    End If
    
    connOpen = True
    
    If conn Is Nothing Or blnConnOpen = False Then        Set conn = CreateObject("ADOCE.Connection.3.0")
        conn.Open strDBFilename
        
        If Err Then
            ErrMessageShow "数据库连接前错误，请检查PDA软件配置状态！", Err.Description & " connOpen 1", "数据库连接", True
            connOpen = False
            Err.Clear
            Exit Function
        End If
        
        blnConnOpen = True
        
        Set rs = CreateObject("ADOCE.Recordset.3.0")
    End If
    
End Function
Public Sub SQLCommand(strSQLCommand As String)
    
    On Error Resume Next
    
    If connOpen = True Then
        conn.Execute (strSQLCommand)
    End If
    
    If Err Then
        ErrMessageShow "SQL语句执行错误！", Err.Description & " SQLCommand", "数据库", True
        Err.Clear
    End If
    
End Sub
Public Sub BuildDataBase()
    Dim rsBuild
    
    On Error Resume Next
    
    strDBFilename = "\Windows\Managerwww.cdb"
    
    Set rsBuild = CreateObject("ADOCE.Recordset.3.0")
    
    strSQL = "CREATE DATABASE '" & strDBFilename & "'"
    
    rsBuild.Open strSQL
    rsBuild.Close
    
    
    strSQL = "CREATE table AT_ShippingBayContainer (ShippingPropertyID Integer, VoyageID Integer, BayID Integer, ID Integer)"
    SQLCommand strSQL
    
    
    If connOpen() = True Then
        conn.Execute ("Delete FROM AT_Shipping")
        
        strSQL = "SELECT ShippingPropertyID, VoyageID, BayID, ID"
        strSQL = strSQL & " FROM AT_Shipping"
        
        rs.Open strSQL, conn, adOpenKeyset, adLockPessimistic
        
        rs.AddNew
        rs.Fields("ShippingPropertyID") = 10
        rs.Fields("VoyageID") = 191
        rs.Fields("BayID") = 1
        rs.Fields("ID") = 1
        rs.Update
        
    End If
End Sub

Answer 7

CNMING,已经给的很详细的代码了。