|
(接上一页)Dim conn As New ADODB.Connection
Dim rs As New ADODB.Recordset
'连接数据库
conn.Open "dsn=data"
'打开数据源（即选定操作的数据对象）
rs.Open SQL语句, conn
但是如果是使用ODBC和OLEDB的方式进行连接，那么大家一定知道在连接字符串上那一长串的代码，不要说对于初学者，就是对于那些经验丰富的程序员来说，也很难记住这一串代码。那么如何可以记住这一串代码呢？其实，方法很简单，只要添加一个ADO Data控件，然后在其属性框中使用向导进行设置后，那么最后向导就会自动生成一段ConnectionString,只需要将这一行代码拷贝下来然后放到conn.open之后的连接字符串参数的位置上就可以了。这条经验希望读者能够记住，实际开发中很实用。
经验四：前面讲到手动设置ODBC数据源，这里可以通过程序来进行动态设置。首先要清楚的是ODBC的详细信息全部存放在注册表的下述键值内："HKEY_LOCAL_MACHINE\SOFTWARE\ODBC"，通过调用Win32函数WriteProfileString来对相应的键值进行修改即可达到目的。
经验五：通常将数据库的连接代码和资源释放代码放入各自特定的函数里面，因为一般大一点的程序里需要经常对这两个功能模块进行调用，这样做就可以提高效率，当然很多时候都需要写成连接池的形式。
经验六：使用VB在SQL中处理含单引号的字符串时，对字符串数据都用单引号引起来，如：
Select * from MyTable Where ID='FirstID'
若其中的FirstID为First'ID，即中间多出一个单引号，则上述写法将导致错误，解决的办法是将字符串中的每一个单引号用两双引号替换，下面的函数StrToSQL完成该功能，并用单引号将处理后的字符串引起来：
Private Function StrToSQL(ByVal strValue As String) As String
StrToSQL = "'" + Replace(strValue, "'", "''") + "'"
End Function
在写SQL时如有字符串数据，不管其中有没有单引号，都可以这样使用：
strValue="First'Id"
strSQL="Select * from MyTable Where ID="+StrToSQL(strValue)
共２页
《１|２》 |
|
收藏本站
设为首页 
