用VB编写一个软件要求功能:能创建新的数据库,数据表及多个数据库字段,并能对创建的数据表内的数据进行 50
用VB编写一个软件要求功能:能创建新的数据库,数据表及多个数据库字段,并能对创建的数据表内的数据进行查询。就这些,记着以前上学的时候做过,但是现在忘的差不多了,特此求助~...
用VB编写一个软件要求功能:能创建新的数据库,数据表及多个数据库字段,并能对创建的数据表内的数据进行查询。就这些,记着以前上学的时候做过,但是现在忘的差不多了,特此求助~!
展开
2个回答
展开全部
ck()
Dim conn As ADODB.Connection
Dim rs As ADODB.Recordset
Set conn = New ADODB.Connection
conn.ConnectionString = _
"Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=" & App.Path & "\" & "销售.mdb" & ";" & _
"Persist Security Info=False"
conn.Open
Combo1.Clear
Set rs = conn.OpenSchema(adSchemaTables, _
Array(Empty, Empty, Empty, "Table"))
Do While Not rs.EOF
Combo1.AddItem rs!TABLE_NAME
rs.MoveNext
Loop
rs.Close
conn.Close
End Sub
Dim conn As ADODB.Connection
Dim rs As ADODB.Recordset
Set conn = New ADODB.Connection
conn.ConnectionString = _
"Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=" & App.Path & "\" & "销售.mdb" & ";" & _
"Persist Security Info=False"
conn.Open
Combo1.Clear
Set rs = conn.OpenSchema(adSchemaTables, _
Array(Empty, Empty, Empty, "Table"))
Do While Not rs.EOF
Combo1.AddItem rs!TABLE_NAME
rs.MoveNext
Loop
rs.Close
conn.Close
End Sub
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询