源程序 Private Sub mInsertTableName() Dim [2条回复]

当前位置：首页

开发技术指南» 文章正文

引言：

摘要：一个c#程序，有许多窗体都要访问一个数据库。是共用一个数据访问层（dataset dataadapter datacomand datareader），还是每个窗体个一个。如果共用一个，那么就要动态设置连结、命令等。这个共用模块又怎么设计。非常感谢!! ......

·能使webbrowser控件不出现滚动条吗 »显示摘要«

摘要：在线等等。。。 ......

用ADO进行数据库处理时报错

源程序

Private Sub mInsertTableName()
Dim i As Integer

BranchCombo.Clear
For i = 0 To myRs.Fields.Count - 1*

Private Sub mInsertTableName()
BranchCombo.Clear
While Not myRs.EOF
BranchCombo.AddItem myRs("字段")
myRs.MoveNext
Wend
myRs.Close
End Sub

NO.2 作者： chenyu5188

你是要显示字段名还是要显示数据库中的记录？？！！
如果是显示字段名用下面的：
Private Sub mInsertTableName()
Dim i As Integer

BranchCombo.Clear
For i = 0 To myRs.Fields.Count - 1
If myRs.Fields(i).Attributes = 0 Then
BranchCombo.AddItem myRs.Fields(i).Name
End If
Next i
End Sub

Dim myRs As New ADODB.Recordset要放在所有子过程之前定义
Private Sub Form_Load()
Dim cnstr As String
Dim myCon As New ADODB.Connection
cnstr = "Driver={Microsoft Visual FoxPro Driver};" & _
"SourceType=DBF;" & _
"SourceDB=" & App.Path & "\branch;" & _
"Exclusive=No"
myCon.Open cnstr

myRs.CursorLocation = adUseClient
myRs.Open "select * from c:\acct\branch.DBF", myCon, adOpenKeyset, adLockBatchOptimistic, adCmdText
if myRs.bof and myRs.eof then
exit sub
else
Call mInsertTableName
end if
End Sub

如果显示记录则mInsertTableName要修改一下：
Private Sub mInsertTableName()
Dim i As Integer

BranchCombo.Clear
For i = 0 To myRs.recordcount-1
　 BranchCombo.AddItem myRs("字段名")
myRs.MoveNext
Next i
End Sub

·判断是否为汉字 »显示摘要«

摘要：请问如何在js中判断一个字符是否为汉字，是否为普通字符。另外一个问题，如何调用其它表单对象的一个事件，比如列表对象的单击事件调用了函数"change_opt()"函数，现在我想在脚本中直接调用它的这个事件，该怎么做。请写详细点，我知道有个方法handleevent()，但不知该怎么用。 ......

» 本期热门文章：