打开两个连接。建两个记录集。RSA->A数据库中的某一个表 RSB->B数据库中的某一个表。
在TEXTBOX1_Validate事件中进行判断。
在rsb中判断 “字段名=textbox1.text”(具体根据自己的情况写代码,我不知你要怎么判断才算符合条件。)
if 符合条件 then
textbox2.text=rsb!("字段2")
textbox3.text=rsb!("字段3")
endif
我只是根据你所说的大体写了一下,我也是菜鸟一名,以后大家相互学习
:)
在TEXTBOX1_Validate事件中进行判断。
在rsb中判断 “字段名=textbox1.text”(具体根据自己的情况写代码,我不知你要怎么判断才算符合条件。)
if 符合条件 then
textbox2.text=rsb!("字段2")
textbox3.text=rsb!("字段3")
endif
我只是根据你所说的大体写了一下,我也是菜鸟一名,以后大家相互学习
:)
解决方案 »
- 如何判断在一个gourpbox里面的radiobutton的选中状态?
- 急急!就这多分啦,全送拉!我做了一个自动升级程序,原理就是从服务器共享目录下copy文件,现在的主要问题就是如果不手动登录服务器,就
- 枕善居VB源码博客新开通庆祝,顺祝大家圣诞元旦快乐!
- 请问如何使用vb向SQLServer中插入图片,并使用另一个vb程序把SQLServer中的图片取出来?
- 怎么用vb实现汉字转换为区位码?
- [我昏哦,你这100分,也太好拿了吧?]该贴的朋友进来,送佛送到西,谢谢
- 如何将dos窗口中的内容导入文本中
- 奇怪问题高手进:同一个函数,用户控件不能为数组赋值,类却可以?
- VB中Form与Form之间互换问题
- winsock多客户的问题,小妹有礼了
- VB控制Excel...
- 我装的VB6.0里文本框的BcckStyle属性怎么没有?我找不到这个属性设置了!!
Private Sub txtJiekuanNum_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
SendKeys "{tab}"
Dim mySQL As String
mySQL = "select 借款摘要,借款金额,年,月,日 from Jiekuan where 编号='" + txtJiekuanNum + "'"
On Error GoTo myError
Set res = mcon.OpenResultset(mySQL)
txtJiekuanZhaiyao = res(0)
txtJiekuanJine = res(1)
txtJiekuanDate = res(2) + "年" + res(3) + "月" + res(4) + "日"
myExit:
Exit Sub
myError:
MsgBox "The Number you just input has not exist!"
Resume myExit
End If
End Sub