VB编程方法点滴

本人从事VB的教学与编程工作，在教学和工作中使用到了VB的编程的一些简单技巧想和初学者共勉。

一、如何利用数据库数据向组合框中添加例表项

向组合框中添加例表项，一般我们采用两种办法。一是在设计阶段通过List 属性来添加。二是通过在程序中直接使用AddItem “字符串”方法添加。象下例向组合框cmbTitle中添加数据就是此法。

With cmbTitle

.Clear

.AddItem \"校长\"

.AddItem \"副校长\"

.AddItem \"主任\"

.AddItem \"秘书\"

.AddItem \"总管\"

.AddItem \"干事\"

.AddItem \"其他\"

.ListIndex = 0

End With

下面要谈的是我们有一个数据库，想把此数据库的某个字段添加到一个组合框中如何做法。我们可以建立一个过程如LoadDataToCombo，有三个参数一个是cmb，另一个是sTable，第三个是sField。其中cmb是要向其添加的组合框，sTable是要向组合框添加数据的数据库，sField是要向组合框添加的字段。实现方法见下程序。

Private Sub LoadDataToCombo(ByRef cmb As ComboBox, ByVal sTable As String, ByVal sField As String)

cmb.Clear

Dim rs As New ADODB.Recordset

rs.Open \"SELECT \" & sField & \" FROM \" & sTable, cn.ConnectionString, adOpenKeyset, adLockReadOnly

While Not rs.EOF

cmb.AddItem rs.Fields(sField).Value

rs.MoveNext

Wend

rs.Close

Set rs = Nothing

If cmb.ListCount > 0 Then cmb.ListIndex = 0

End Sub

例把Manager 数据库中的ManagerName字段添加到cmbMan中可以用如下命令调用。

LoadDataToCombo cmbMan, \"Manager\", \"ManagerName\"

二、在VB中实现数据库表格打印的方法

方法一：在“工程”菜单上，单击“添加 Data Enviroment”向工程中添加一个设计器。单击“设计器”选项卡。并单击“数据环境”把设计器添加到菜单上。右键单击“Connection1”图标，然后单击“添加命令”显示“Command1”对话框。同时改变其属性，添加连接，将数据库表格连接到“Command1”上。

在“工程”菜单上，单击“添加 Data Report”，Visual Basic 将把它添加到您的工程中。单击“设计器”选项卡，并单击“Data Report”把设计器添加到菜单上。在“属性”窗口上，单击“数据源”，然后单击相应的命令。然后单击“DataMember”并单击“Customers”。 从数据环境设计器中，把“OrderDate”字段（在Orders命令下）拖到细节（Orders_Detail）部分。同时在细节部分添加一些横线和竖线即可。具体细节可以参照MSDN中“创建一个简单数据报表”一节。

方法二：实际上我们可以有更直接的方法，就是利用Printer对象的Print 方法，同时利用区位码中的制表符号和TAB函数更灵活的实现数据库表格的打印。下面是一个简单例子，可参考之。

Private Sub cmdprint_Click()

Dim n As Integer

Dim rs As New ADODB.Recordset

rs.Open \"SELECT * FROM jggz\", \"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\\jggz\\jggz.mdb;Persist Security Info=False\", adOpenStatic, adLockPessimistic