标题Visual Basic 3.0/4.0 问与答

　　
　　答：实现在VB中建茿ccess格式的数据库，其方法如下：
　　
　　按如下步骤，可在VB中建立Foxpro格式的数据库。
　　
　　(1) 首先在硬盘中建立一个其它格式数据库的目录，例如，D:\FOXPRO。
　　
　　(2) 进入VB的Data　Manager(在VB主窗口的Windows菜单里)。用 File 菜单的 Open DataBase选择要建立的数据库类型。选择Foxpro 2.5，则出现“Open DataBase”的对话框。在这个对话框中，选择要存放Foxpro　2.5数据库的目录。例如， 在选择的是“ D:\Foxpro”。注意：这里选择的是目录而不是数据库文件名字。
　　
　　(3) 选择好数据库存放的目录后，则出现一个“DataBase D:\”的对话框。在该对话框中选择“New”按钮，则出现一个“Create New Table”的对话框。可在“Table Name”中输入一个Foxpro　2.5格式的数据库名字，例如，VB1。
　　
　　(4) 在该图中按“OK”按钮，则出现“Table:VB1”的对话框。
　　
　　(5) 选择“Add”按钮，则出现一个“Add Field”的对话框。然后在“Filed Name”输入字段名称，例如WZ1，在“Field Type”中选择该字段的类型，例如，Text(文本字符串)，在“Field Size”中输入该字段的长度，例如10。输入完毕后，按“OK”按钮， 则出现图记录输入的界面。
　　
　　此时，符合Foxpro　2.5格式的数据库VB1.DBF就建立成功。
　　
　　在VB程序中建立该格式的数据库，可用VB中的一个函数CreateDataBase()来生成数据库。但是，用CreateDataBase()也只能生成Access格式的数据库。要在VB的程序中直接建立Foxpro 2.5格式的数据库，可参考下例。
　　
　　Sub Form_Load()
　　
　　Dim md1 as database
　　
　　dim i as integer
　　
　　dim md as New TableDef，fld() as New Field
　　
　　' 打开数据库类型、数据库存放的目录路径
　　
　　set md1=OpenDataBase("D:\FOXPRO"，True，False，"FOXPRO 2.5")
　　
　　reDim fld(1 to 3)
　　
　　md.Name="VB1"　　' 数据库的名称
　　
　　fld(1).Attributes=DB_AUTOICRFIELD
　　
　　for i=1 to 3
　　
　　fld(i).Name=Choose(i，"Name"，"tel"，"address")
　　
　　fld(i).Type=10　　 ' 类型为字符类型(Text)
　　
　　fld(i).Size=Choose(i，6，30，30)　　 ' 长度分别为6、30、30
　　
　　md.Fields.Append fld(i)　　' 增加三个字段
　　
　　Next i
　　
　　md1.TableDefs.Append md
　　
　　MsgBox "数据库"+md.name+"已经建立。"
　　
　　end
　　
　　End Sub
　　
　　这种方法比较简单。Access的数据库实际上是一个数据库的超集，它的一个数据库可以包括若干个数据库(DataBase)、表(Table)、字段、索引。而 Foxpro等数据库只相当于Access数据库中的表。Access中将目录看成是数据库的等价物，因此，在上面的VB程序中建立一个目录就相当于建立一个数据库，对于Foxpro等来说，Access的表就是数据库。这种方法实际上是用Access的风格建立Foxpro格式的表；但Access的数据库描述能力远远大于Foxpro等数据库环境。
　　
　　问2: 如何使用Crystal Reports　VBX与SQL相连？
　　
　　答： 可使用下面的方法连接字符串：
　　
　　report1.Connect="DSN=Data Source name;UID=ID;PWD=Password;DSQ=Tablename"
　　
　　将Crystal Reports　VBX与SQL相连。
　　
　　问3：如何使用Crystal Reports作为一个VB MDI的子窗口？
　　
　　Crystal Reports打印窗口可以作为MDI子窗口显示。
　　
　　基本思想是用VB产生一个MDI子框架，然后使Crystal Reports打印窗口作为子框架的一个子窗口。 在调用Peout PuttoWindow时，若正在使用打印工具，则最后一个参数将应说明为父窗口的句柄。
　　
　　若用了Crystal Reports　VBX，应用下面的语句：
　　
　　report1.WindowParentHandle=XXXX
　　
　　其中XXXX为父窗口的句柄。
　　
　　注意：上面的WindowParentHandle属性只有在运行阶段才有效。
　　
　　若父窗口句柄是一个MDI窗口的句柄， 则Crystal　Reports的打印窗口将作为一个MDI子框架窗口。
　　
　　用Windows API调用函数GetWindow和MoveWindow完成下面的工作：
　　
　　(1) GetWindow函数主要用来获取与给定窗口有特殊联系的窗口句柄。
　　
　　(2) MoveWindow函数主要用来改变窗口的位置和尺寸。
　　
　　问4：如何调用存储的子程序？
　　
　　答： 用以下代码即可调用存储的子程序。
　　
　　[form.]report.storedProcParam(Paramter Array Index%)[new Parameter$]
　　
　　如： report1.StoredProcParam(0)="06/14/1995"
　　
　　将第一个存储的子程序的参数设置为日期值“6月14，1995年”。
　　
　　问5：如何获得结构尺寸？
　　
　　答：用如下VB代码可以得到一个结构的尺寸大小。
　　
　　dim logoninfo as PELogoninfo
　　
　　logoninfo.StructSize=Len(logoninfo)
　　
　　logoninfo.ServerName="ODBCSQL"+chr$(0)
　　
　　logoninfo.DatabaseName="pubs"+chr$(0)
　　
　　logoninfo.UserID="tech"+chr$(0)
　　
　　logoninfo.Password="tech"+chr$(0)
　　
　　问6: 如何设置一个不包括开发机器的服务器的位置？服务器的名字不同，但VBX中的表和字段名相同。
　　答：为改变服务器的位置，同新服务器相连，每个表均使用DataFiles()属性。
　　问7：如何设置存储子程序中表的位置？
　　
　　答：使用DataFiles()属性。
　　
　　注意：不能在Crystal Reports中与存储子程序相连。
　　
　　问8: 当使用自然的Q+E服务器时，为什么关掉Crystal Reports工具
　　会破坏SQL联接？
　　答： 这是所有Q+E 1.x驱动器共有的问题。
　　
　　解决的方法就是使用ODBC，在调用Crystal Reports时注销它们，或者直接使用Q+E 2.x以上的驱动器。