Dim strConnect As String Dim SQL As StringstrConnect = "Provider=sqloledb;Data Source=820EC5407A99476;Initial Catalog=kj93new;User Id=sa;Password=" m_Connection.Open strConnect sql ="select * from tablename" adoRS.Open SQL, m_Connection, 1, 1这样就连接到数据库了!
至于VB于数据库的结合那是非常简单的,而且也不重要。能连上、能读出、能更新、会写几个Command和Param,基本上VB数据库编程就过关了。
就可以了
Dim SQL As StringstrConnect = "Provider=sqloledb;Data Source=820EC5407A99476;Initial
Catalog=kj93new;User Id=sa;Password="
m_Connection.Open strConnect
sql ="select * from tablename"
adoRS.Open SQL, m_Connection, 1, 1这样就连接到数据库了!