VB编程方法点滴

最新推荐文章于 2024-09-06 13:22:34 发布

zgqtxwd

最新推荐文章于 2024-09-06 13:22:34 发布

阅读量339

点赞数

分类专栏： vb 文章标签： vb 编程数据库服务器 string 工作

vb 专栏收录该内容

471 篇文章 2 订阅

订阅专栏

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:jggzjggz.mdb;Persist Security Info=False", adOpenStatic, adLockPessimistic

n = 0

rs.MoveFirst

Form1.Print "┌────┬────┐"

While Not rs.EOF

Printer.Print "│" & rs.Fields("姓名").Value; Tab(11); "│"; rs.Fields("课时工资"); Tab(21); "│"

rs.MoveNext

n = n + 1

If n / 5 = Int(n / 5) Or rs.EOF Then

Printer.Print "└────┴────┘"

Printer.Print "┌────┬────┐"

Else

Printer.Print "├────┼────┤"

End If

Wend

Printer.Print "└────┴────┘"

rs.Close

End Sub

附件1：制表符号区位对照

区位

0904

0906

0916

0920

0924

0928

0932

0940

0948

符号

─

│

┌

┐

└

┘

├

┤

┬

区位

0956

0964

0905

0907

0919

0923

0927

0931

0939

符号

┴

┼

━

┃

┏

┓

┗

┛

┣

区位

0947

0955

0963

0979

0936

0944

0951

0959

符号

┫

┳

┻

╋

┠

┨

┯

┷

三、利用WinSock实现简单网络编程

利用WinSock可以实现TCP、UDP协议通信。我们知道，网络通信要找三个地址即网络地址、主机地址、服务地址（端口号）。通过机器的IP地址和子网掩码计算可以得到网络和主机地址。而每个机器的服务地址（端口号）有65536个。下面就谈一下怎样利用WinSock实现网络通信。

服务器端程序编写：建立一个窗体，添加一个Text控件用于存放发送信息的内容、一个命令按钮(cmdSend)用于发送信息、两个WinSock控件(sckListen,sckServer)，一个用于监听、一个用于接受。把sckServer的Localport 属性设为8001（一定不要和sckListen的端口号一样即可）。