vb sql 问题急！

来源：百度知道编辑：UC知道时间：2024/06/28 13:18:28

Private Sub Form_Load()
Dim Conn As New Adodb.Connection '建立连接
Dim selectstr As String '定义字符串
Dim rsinfo As Recordset '建立记录集
Conn.ConnectionString = "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=xu;PWD=xu;Initial Catalog=supermarket;Data Source=(local)"
Conn.Open
Set MSHFlexGrid2.DataSource = Adodc1

MSHFlexGrid2.Row = 0
MSHFlexGrid2.Col = 0
MSHFlexGrid2.Text = "员工号"
MSHFlexGrid2.Col = 1
MSHFlexGrid2.Text = "员工名"
MSHFlexGrid2.Col = 2
MSHFlexGrid2.Text = "部门号"
MSHFlexGrid2.Col = 3
MSHFlexGrid2.Text = "性别"
MSHFlexGrid2.Col = 4
mshfexgrid2.Text = "联系方式"
MSHFlexGrid2.ColWidth(0) = 1000
MSHFlexGrid2.ColWidth(1) = 1000
MSHFlexGrid2.ColWidth(2) = 1200
MSHFlexGrid2.ColWidth(3) = 1000
MSHFlexGrid2.ColWidth(4) = 1000
End Sub

Private Sub MSHFlexGrid2_Click()
Adodc1.Recordset.Absolu

你的电脑没有一个叫supermarket的数据库。要不就是你的数据服务器没有打开。

PWD改成password
要不就是你的系统没装sqlserver

Conn.ConnectionString = "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=xu;PWD=xu;Initial Catalog=supermarket;Data Source=(local)"
仔细看看

把Data Source=(local)改成Data Source=.\SqlExpress试试

急急急:VB连接SQL问题 vb+sql 急!!!编程 VB sql 语法问题 VB-----SQL的问题 VB SQL 语句问题 vb sql问题专家进！VB+Sql server 问题，在线等！！急急急！！！急救～VB SQL 编程问题？有关VB+SQL的问题？ vb与sql的问题

vb sql 问题 急！

vb sql 问题急！