一个用VB加Access写的用户信息管理实例，小弟想把它改成SQL的，无奈不是很懂，哪位大哥给改下让我参考啊。100分重谢！！

[sunniful]

Private Sub Form_Load()
'建立数据源的连接
Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=usermanage.mdb;Persist Security Info=False"
'查询所有记录，并按"部门编号"排序
Adodc1.RecordSource = "select * from 用户信息表 order by 操作员编号"
Adodc1.Refresh
For i = 0 To 4
Text1(i).Enabled = False
Next i
CmdSave.Enabled = False
End Sub
Private Sub Text1_KeyDown(Index As Integer, KeyCode As Integer, Shift As Integer)
Select Case Index
Case Is = Index
If KeyCode = vbKeyReturn And Index < 4 Then Text1(Index + 1).SetFocus '回车获得焦点
If KeyCode = vbKeyReturn And Index = 4 Then CmdSave.SetFocus
If KeyCode = vbKeyUp And Index > 1 Then Text1(Index - 1).SetFocus
End Select
End Sub
Private Sub CmdAdd_Click() '添加记录
Adodc1.Recordset.AddNew
For i = 0 To 4
Text1(i).Enabled = True
Text1(i).Text = ""
Next i
Text1(0).SetFocus
CmdAdd.Enabled = False
CmdDelete.Enabled = False
CmdModify.Enabled = False
CmdSave.Enabled = True
End Sub
Private Sub CmdModify_Click() '修改记录
If Adodc1.Recordset.RecordCount <> 0 Then
For i = 0 To 4
Text1(i).Enabled = True
Next i
CmdSave.Enabled = True
CmdAdd.Enabled = False
CmdModify.Enabled = False
CmdDelete.Enabled = False
Else
MsgBox ("没有要修改的数据!")
End If
End Sub
Private Sub CmdDelete_Click() '删除记录
Dim myval As String
myval = MsgBox("是否要删除该记录？", vbYesNo)
If myval = vbYes Then
Adodc1.Recordset.Delete
Adodc1.Recordset.MoveNext
If Adodc1.Recordset.EOF = True Then Adodc1.Recordset.MoveLast
For i = 0 To 4
Text1(i).Enabled = False
Next i
End If
End Sub
Private Sub CmdSave_Click()
If Text1(0).Text = "" Then
MsgBox "操作员编号不允许为空！"
Exit Sub
End If
If Text1(1).Text = "" Then
MsgBox "姓名不允许为空！"
Exit Sub
End If
If Text1(2).Text = "" Then
MsgBox "用户ID号不允许为空！"
Exit Sub
End If
If Text1(3).Text = "" Then
MsgBox "密码不允许为空！"
Exit Sub
End If
If Text1(4).Text = "" Then
MsgBox "所属部门不允许为空！"
Exit Sub
End If
Adodc1.Recordset.Update '更新记录
'设置控件不可用
For i = 0 To 4
Text1(i).Enabled = False
Next i
CmdSave.Enabled = False
CmdAdd.Enabled = True
CmdModify.Enabled = True
CmdDelete.Enabled = True
End Sub
Private Sub CmdExit_Click()
Unload Me
End Sub

[byeshuang]

sql里面的表和你原来的表一样吗？你在查询分析器运行可以通过吗？

[zou19820704]

Select Case Index
Case Is = Index
If KeyCode = vbKeyReturn And Index < 4 Then Text1(Index + 1).SetFocus '回车获得焦点
If KeyCode = vbKeyReturn And Index = 4 Then CmdSave.SetFocus
If KeyCode = vbKeyUp And Index > 1 Then Text1(Index - 1).SetFocus
End Select
如果index = 3，且按下回车，你说他应该执行那条语句？
第一个和第3个if都执行了哦！！！

[zou19820704]

更正，楼上没有看清楚，呵呵！！
keycode已经改变

[sunniful]

在查询分析器中运行通不过啊。怎么回事！！！

[sunniful]

报错“用户信息表无效”

[byeshuang]

执行“select * from 用户信息表 order by 操作员编号”不行是吗？
你的sql里的usermanage有“用户信息表吗”？怎么个无效啊？

[jinjazz]

什么地方不懂？

[byeshuang]

只要改一下这个就行了
Adodc1.ConnectionString = "Provider=sqloledb;server=ip地址;Initial Catalog=数据库名;user id=用户名;password=密码＂

[byeshuang]

http://community.csdn.net/Expert/FAQ/FAQ_Index.asp?id=183662

[饮水需思源]

Adodc1.ConnectionString ="driver=SQL Server;server=计算机名或IP地址;uid=sa;pwd=;database=数据库名"

[xghim]

adodc有个向导可以生成连接语句的啊。什么类型的数据库都可以。

[sunniful]

我试过上面两位大哥的方法了。不行啊。报错“连接字符串属性无效”！！
能不能具体点啊！！！

[sunniful]

向导是在属性里吗？

[sunniful]

小弟是初学者，希望各位大哥多多帮忙！！感激不尽

[bbhere]

把连接语句改成连sql的就行了

[byeshuang]

adodc控件=>右键=>adodc属性=>连接字符串=>生成=>SQLserver=>下一步=>自己看看咯

[sunniful]

急啊！！！不行

[xghim]

首先你得建立一个SQLserver数据库，比如名叫customers，然后将access里的数据和表复制到SQLserver数据库中。
然后你才能用下面的连接语句。()号内的为说明内容。
Adodc1.ConnectionString ="Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa（用户名）;pwd=密码（没有的话就将pwd=...;这段去掉）;Initial Catalog=customers（数据库的名字）;Data Source=SERVER（SQLServer服务器的计算机名或者IP）"

[byeshuang]

怎么不行了？什么错误啊？

[sunniful]

现在 可以通过，很感谢楼上的各位大哥的指点。。
但是还有一个小问题。就是在编译下面这段程序报错“在关键字”select“附近有语法错误。点调试后光标出现在Adodc1.Refresh上面。注释这条语句后，就可以编译通过。不知道是何原因？

Private Sub Form_Load()
'建立数据源的连接
Adodc1.ConnectionString = "driver=SQL Server;server=front;uid=sa;pwd=;database=usermanage"

'查询所有记录，并按"部门编号"排序
Adodc1.RecordSource = "select * from 用户信息表 order by 操作员编号"
Adodc1.Refresh
For i = 0 To 4
Text1(i).Enabled = False
Next i
CmdSave.Enabled = False
End Sub