module1.bas

windows mobile 应用程序开发实践一书的源代码

Attribute VB_Name = "Module1"
Option Explicit

 

Public EditCode_Value As Integer ' 当前选中的编辑框代码
Dim Connection As ADOCE.Connection
Dim table, indextable As ADOCE.Recordset
Set Connection = CreateObject("ADOCE.Connection.3.1")
Set table = CreateObject("ADOCE.Recordset.3.1")
 Public fieldarray() As String

DBConnect


Public Sub DBConnect()
  
    Connection.Open "" & App.Path & "\books.cdb"
     If Err Then
        unexpectedError = True
        MsgBox "打开数据库失败，请检查", vbCritical
        Err.Clear
        App.End
    End If
      
End Sub

Private Function showallfieldshasarray(ByVal xx As Object)

 Erase fieldarray
 Dim i As Integer
 If table.BOF And table.EOF Then
 MsgBox table & " 没有任何记录", vbOKOnly, "注意"
 End If
Dim s As Integer
s = xx.datagrid.Rows
 For i = 1 To s
xx.datagrid.RemoveItem 0
Next
Dim title As String
Dim data As String
xx.datagrid.Cols = 3
xx.datagrid.ColWidth(0) = Len("Name") * 350
xx.datagrid.ColWidth(1) = Len("Type") * 200
xx.datagrid.ColWidth(2) = Len("字段大小") * 200

xx.datagrid.AddItem "字段名称" & vbTab & "类型" & vbTab & "字段大小"
xx.datagrid.Cols = table.fields.Count
ReDim fieldarray(table.fields.Count)
Dim xxx As Integer
xxx = xx.datagrid.Cols - 1
For i = 0 To xxx
   title = table.fields(i).Name & vbTab & table.fields(i).Type & vbTab & table.fields(i).DefinedSize
   xx.datagrid.AddItem title
 fieldarray(i) = table.fields(i).Name
 Next
xx.datagrid.Redraw = True

End Function

Private Function showallfields(ByVal xx As Object)

Dim i As Integer
 If table.BOF And table.EOF Then
 MsgBox table & " 没有任何记录", vbOKOnly, "注意"
 End If

Dim s As Integer
s = xx.datagrid.Rows
 For i = 1 To s
xx.datagrid.RemoveItem 0
Next

Dim title As String
Dim data As String
xx.datagrid.Cols = 3
xx.datagrid.ColWidth(0) = Len("Name") * 200
xx.datagrid.ColWidth(1) = Len("Type") * 160
xx.datagrid.ColWidth(2) = Len("字段大小") * 200
xx.datagrid.AddItem "名称" & vbTab & "类型" & vbTab & "字段大小"

xx.datagrid.Cols = table.fields.Count
Dim xxx As Integer
If table.fields.Count > 0 Then
xxx = xx.datagrid.Cols - 1
For i = 0 To xxx
   title = table.fields(i).Name & vbTab & table.fields(i).Type & vbTab & table.fields(i).DefinedSize
   xx.datagrid.AddItem title
  Next
xx.datagrid.Redraw = True
Else
MsgBox "空表格", vbOKOnly, "提示"
Exit Function
End If

End Function