[求助]自编一个利用ADO编程的例子，有个头疼的问题

该怎么办呢难哦

Private Sub ComboBox1_Click()
Dim cn As Connection
Set cn = New Connection
cn.Open "ROVIDER=Microsoft.Jet.OLEDB.3.51;Data Source=d:\cf.mdb;"

Dim cmd As New ADODB.Command
Set cmd.ActiveConnection = cn
cmd.CommandText = "select b,h,name from cf1 where name='" & ComboBox1.Text & "'"

Dim rst As New ADODB.Recordset
rst.CursorLocation = adUseClient
rst.Open cmd, , adOpenStatic, adLockBatchOptimistic


Do While Not rst.EOF
UserForm1.TextBox1.Text = rst("h")
UserForm1.TextBox2.Text = rst("b")
rst.MoveNext
Loop
rst.Clone


End Sub



Private Sub CommandButton1_Click()
UserForm1.Hide
Dim pt As Variant
pt = ThisDrawing.Utility.GetPoint(, "拾取插入点:")

h = Val(UserForm1.TextBox1.Text)
b = Val(UserForm1.TextBox2.Text)

Dim ax1(0 To 2) As Double
Dim ax2(0 To 2) As Double
Dim ax3(0 To 2) As Double
Dim ax4(0 To 2) As Double
ax1(0) = pt(0)
ax1(1) = pt(1)
ax1(2) = pt(2)
ax2(0) = pt(0) + b
ax2(1) = pt(1)
ax2(2) = pt(2)
ax3(0) = pt(0)
ax3(1) = pt(1) + h
ax3(2) = pt(2)
ax4(0) = pt(0) + b
ax4(1) = pt(1) + h
ax4(2) = pt(2)

Dim linea, lineb, linec, lined As AcadLine
Set linea = ThisDrawing.ModelSpace.AddLine(ax1, ax2)
Set lineb = ThisDrawing.ModelSpace.AddLine(ax2, ax3)
Set linec = ThisDrawing.ModelSpace.AddLine(ax3, ax4)
Set lined = ThisDrawing.ModelSpace.AddLine(ax4, ax1)

  
End Sub

Private Sub UserForm_Initialize()
ComboBox1.AddItem "10*20"
ComboBox1.AddItem "15*30"
ComboBox1.AddItem "20*40"
End Sub

执行以后出现这句提示：实时错误‘-2147217904（80040阿0）’：至少一个参数没有被指定值。
因有窗口，再还有一个ACCESS数据库，将之压缩上传

leeyeafu

数据库的三个字段。字段名分别为“字段1”、“字段2”、“字段3”。而你想要的字段名应该是“name”、“h”、“b”，只是你把它们作为了表的第一条记录。修改的方法：
在ACCESS中打开数据库，右击表cf1,选择“设计”，把字段改过来就行了。当然，真正实用的数据库还应该设置字段的数据类型。

goldenshin

leeyeafu

如果不愿改动数据库结构，SQL语句应该这样写：
Select 字段1 As name,字段2 As h,字段3 As b where name=......

该怎么办呢难哦

清风明月名字

谢谢楼主的分享！收藏备用。