bymland

建与数据库的连接（工程里的所有窗体都通过这段代码与数据库连接） Dim connstr As String With cnn '建立数据库连接 .Provider = "SQLOLEDB" .ConnectionString = "User ID=sa;PWD=123456;Data Source=

VB+SQL的学生信息管理系统 Option Explicit Public cnn As New ADODB.Connection Public cnn1 As New ADODB.Connection Public qy1 As New ADODB.Recordset Public qy2 As