Vb6 如何将文本框从其他表单连接到其他表单中的数据网格
基本上,im tryin是创建一个连接到数据库的登录页面,因此在下一个表单中,im tryin使用datagrid显示输入相同数据库id的人员信息。那么,如何让datagrid显示所需的唯一信息呢 这是我在下一张表格上写的Vb6 如何将文本框从其他表单连接到其他表单中的数据网格,vb6,Vb6,基本上,im tryin是创建一个连接到数据库的登录页面,因此在下一个表单中,im tryin使用datagrid显示输入相同数据库id的人员信息。那么,如何让datagrid显示所需的唯一信息呢 这是我在下一张表格上写的 Private Sub DataGrid1_Click() Adodc1.RecordSource = "select * from STUDENTINFO where Name = '" + txtuser.Text + "'" Adodc1.Refresh Adodc1.
Private Sub DataGrid1_Click()
Adodc1.RecordSource = "select * from STUDENTINFO where Name = '" + txtuser.Text + "'"
Adodc1.Refresh
Adodc1.Caption = Adodc1.RecordSource
End Sub
这是用户登录代码
Private Sub loginbtn_Click()
Adodc1.RecordSource = "select * from STUDENTINFO where Name = '" + txtuser.Text + "'"
Adodc1.Refresh
If (Adodc1.Recordset.EOF = False) Then
If (txtpass.Text = Adodc1.Recordset.Fields("ID")) Then
MsgBox "Login Succeeded!"
Adodc1.Caption = Adodc1.RecordSource
StudentInfo.Show
Else
MsgBox "Invalid Password!", vbCritical, "Login"
txtuser.Text = ""
txtpass.Text = ""
txtuser.SetFocus
End If
Else
MsgBox "Invalid Username or Password!", vbCritical, "Login"
txtuser.Text = ""
txtpass.Text = ""
txtuser.SetFocus
End If
End Sub
我想在下一个表单中显示用户在datagrid中查看SQL注入漏洞的经典示例所需的唯一信息 要使此功能正常工作,您至少应在下一张表单上使用:
Adodc1.RecordSource = "select * from STUDENTINFO where Name = '" + LoginForm.txtuser.Text + "'"
要引用loginform,不应卸载它,而应将其隐藏,以便它保留在内存中。并修复SQL注入漏洞!至少是这样:
Replace(LoginForm.txtuser.Text, "'", "''")
您的标记需要是vb6或vb.net;不是两者都有。他们完全不同。vb.net应该使用ADO.net。这不是vb.net代码