高分求购人事管理系统源码(VB+Access)，分数要多少给多少，也可现金求购

Question

回复人： supergreenbean(超级绿豆-梅雨来，霉了绿豆，红了杨梅) ( ) 信誉：116  2004-6-19 20:45:09  得分:0  引用ADOX
类似这样：
Option ExplicitPublic g_oCnn As Connection
Public g_oCat As Catalog
Public g_oRst As Recordset
Public Const DBNAME_PLACE_HODLER As String = "<DBPATH>"
Public Const DATABASE_CONNECTION_STRING As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & DBNAME_PLACE_HODLERPublic Function GetConnStr(ByVal sDBName As String) As String
    GetConnStr = DATABASE_CONNECTION_STRING
    GetConnStr = Replace(GetConnStr, DBNAME_PLACE_HODLER, sDBName)
End FunctionPublic Function CreateDB(ByVal sDBName As String) As Boolean
    On Error GoTo Error_Handler
    Dim sCnnStr As String
    Set g_oCat = New ADOX.Catalog
    
    sCnnStr = GetConnStr(sDBName)
    
    g_oCat.Create sCnnStr
    
    CreateDB = True
    Exit Function
Error_Handler:
End FunctionPublic Function CreateTable(ByVal sTableName As String) As Recordset
    On Error GoTo Error_Handler
    If g_oCat Is Nothing Then Exit Function
    Dim oTable As Table
    Set oTable = New Table
    
    With oTable
        .Name = sTableName
        Set .ParentCatalog = g_oCat
        .Columns.Append "id", adInteger
        .Columns("id").Properties("AutoIncrement") = True
        .Keys.Append "colid", adKeyPrimary, "id"
        .Columns.Append "name", adVarWChar, 50
        .Columns.Append "value", adVarWChar, 50
        .Columns("value").Attributes = adColNullable
    End With
    
    g_oCat.Tables.Append oTable
    
    Set CreateTable = New ADODB.Recordset
    With CreateTable
        .Open sTableName, g_oCat.ActiveConnection, adOpenDynamic, adLockOptimistic
    End With
    
    Set oTable = Nothing
    Exit Function
Error_Handler:
    Set oTable = Nothing
    Set CreateTable = Nothing
End Function 

Answer 1

It's very simple,do it yourself!

Answer 2

to giantman1(听雨) :
朋友，能不能把你的代码发给我，拜托了
因为时间紧，没学过vb，所以请大家帮忙

Answer 3

高分求购人事管理系统源码(VB+Access)，分数要多少给多少，也可现金求购 
///
牽涉倒分數，過分著，都會被刪，這次先警告!

Answer 4

to terry6394(无忌孤飞) ：
请留下联系方式

Answer 5

to daisy8675(莫依)：
不好意思，很久没来csdn了，忘记这个规则了

Answer 6

不好意思，很久没来csdn了，忘记这个规则了
///
沒事，下次注意吧，這樣的帖以後不要往基礎版面放。呵呵~~