1.引用ADO2.数据库连接字符串来连接数据库3.能打开数据库后,就可以操作数据库了SQL = "Select * from 表名" //简单解释就是:Select(索取) *(代表所有字段) from(到里面) 表名(数据库表名)
这个我明白,我现在就SSH1呢,我用的是oracle 10g,现在有个VB6.0,我想用oracle 10g开发个小程序,不会弄呀,呵呵Private Sub Command1_Click() '在这里怎么写呀,我想连接数据库,后查询些值,放到text1.text,text2.text 中 End Sub谢谢啦
connectionstrings看这里
http://www.connectionstrings.com/oracle
先在SQL中建一个表,在表中随便输入一些记录.(在SQL中建表应该会吧!不会就看看书吧!) 在VB工程中添加一个Adodc控件和一个DataGrid控件(两个控件都在部件中勾选才可以添加的.) 1.Adodc1属性页中单击ConnectionString右边的...按钮->生成->Microsoft OLE DB Provider for SQL Server->下一步->1.如果SQL装在本机上那服务器名就不用填了,2.用户名处填sa,密码为空,3.在服务器上选择数据库处选择你刚在SQL中建的数据库就可以了.->确定->确定 '连接SQL的数据库 2.Adodc1属性页中单击Recordsource右边的...按钮->命令类型中选择"2-adcmdTable",表或储存过程名称中选择你在SQL中建的表就可以了->确定 '指定连接数据库中的那个表 3.DataGrid1属性页中的DataSource属性选择Adodc1. 'Adodc1和DataGrid1关联起来,用DataGrid1显示表中的记录 运行试一下吧! 成功了吧!别太高兴.这样连接在写代码刷新的时候就会出错的,什么原因我就不知道了,这个他妈的鬼问题在我开始学的时候就把我折磨得不成人样.所以所有的人都用代码来接连数据库的(代码不会有这种问题). 写上面的内容只是为了楼主先了解SQL与VB是怎样连接的,后面改用代码就容易多了.如果楼主要代码的话我可以再写.
Set conn = New ADODB.Connection Set rs = New ADODB.Recordset conn.ConnectionString = "DSN=login;uid=sa;pwd=;" conn.ConnectionTimeout = 30 conn.Open rs.Open "select 用户名 from login", conn, adOpenStatic, adLockReadOnly, adCmdText Dim i As String For t = 0 To Val(rs.RecordCount) - 1 i = Trim(rs.Fields("用户名").Value) rs.MoveNext Combo1.AddItem i Next t rs.Close
'在这里怎么写呀,我想连接数据库,后查询些值,放到text1.text,text2.text 中
End Sub谢谢啦
在VB工程中添加一个Adodc控件和一个DataGrid控件(两个控件都在部件中勾选才可以添加的.)
1.Adodc1属性页中单击ConnectionString右边的...按钮->生成->Microsoft OLE DB Provider for SQL Server->下一步->1.如果SQL装在本机上那服务器名就不用填了,2.用户名处填sa,密码为空,3.在服务器上选择数据库处选择你刚在SQL中建的数据库就可以了.->确定->确定 '连接SQL的数据库
2.Adodc1属性页中单击Recordsource右边的...按钮->命令类型中选择"2-adcmdTable",表或储存过程名称中选择你在SQL中建的表就可以了->确定 '指定连接数据库中的那个表
3.DataGrid1属性页中的DataSource属性选择Adodc1. 'Adodc1和DataGrid1关联起来,用DataGrid1显示表中的记录
运行试一下吧!
成功了吧!别太高兴.这样连接在写代码刷新的时候就会出错的,什么原因我就不知道了,这个他妈的鬼问题在我开始学的时候就把我折磨得不成人样.所以所有的人都用代码来接连数据库的(代码不会有这种问题).
写上面的内容只是为了楼主先了解SQL与VB是怎样连接的,后面改用代码就容易多了.如果楼主要代码的话我可以再写.
Set rs = New ADODB.Recordset
conn.ConnectionString = "DSN=login;uid=sa;pwd=;"
conn.ConnectionTimeout = 30
conn.Open
rs.Open "select 用户名 from login", conn, adOpenStatic, adLockReadOnly, adCmdText
Dim i As String
For t = 0 To Val(rs.RecordCount) - 1
i = Trim(rs.Fields("用户名").Value)
rs.MoveNext
Combo1.AddItem i
Next t
rs.Close