Question

求用vb翻译以下代码

Private Sub Command1_Click()
If Op1.Value Then
If Text1.Text <> "" Then
Adodc1.RecordSource = "select 入库信息.图书编号,书名,作者,入库时间,库存数,出库信息.出库时间,出库数 from 入库信息,出库信息 where 入库信息.图书编号=出库信息.图书编号 and 入库信息.书名='" & Trim(Text1.Text) & "'"
Adodc1.Refresh
DataGrid1.Refresh
End If
ElseIf Op2.Value Then
If Text2.Text <> "" Then
Adodc1.RecordSource = "select 入库信息.图书编号,书名,作者,入库时间,库存数,出库信息.出库时间,出库数 from 入库信息,出库信息 where 入库信息.图书编号=出库信息.图书编号 and 入库信息.图书编号='" & Trim(Text2.Text) & "'"
Adodc1.Refresh
DataGrid1.Refresh
End If
End If
End Sub
Private Sub Command2_Click()
Unload Me
Form3.Show
End Sub
Private Sub DataGrid1_Click()
End Sub

Answer 1

这就是VB的语言啊 只是SQL里你写了汉字 你写汉字的地方 都是正常的SQL代码 具体字段名要看你数据库里设置的字段名了

Answer 2

已经是标准vb代码了啊？