*******请诸位大侠帮忙找个小错!我脑子现在有点儿乱!!***********先谢了

*请诸位大侠帮忙找个小错!我脑子现在有点儿乱!!*****先谢了

sqlStr = "select * from SQLS where strtype=" & Combo1.Text 改为
sqlStr = "select * from SQLS where strtype='" & Combo1.Text & "'"试试看

解决方案 »

免费领取超大流量手机卡，每月29元包185G流量+100分钟通话, 中国电信官方发货

再sql中，字符串要用“’”括起来，就象楼上写的那样
不会吧，你把下面的句子复制一次
sqlStr = "select * from SQLS where strtype='" & Combo1.Text & "'"
检查你的代码，
sqlStr = "select * from SQLS where strtype='" & Combo1.Text & "'"
                                          ~~~~在“”中        ~~~~在另一个“”中
Sorry! 是我的错.加上'就可以了!
但出了一个小问题!
"多步OLE DB操作产生错误.请检查每个OLE DB状态值.没有工作被完成."
是不是有其他的连接没关闭?
Option Explicit
Public SQLTables As String
Public SQLFields As String
下面是一个ODBC FRO ORACLE的连接需要总保持它,因为当我双击LIST1的项目时,总要通过它来刷新LIST2的项目
Public cnn2
Public cnn2str
Private Sub addS_Click()
Dim selec1 As String
Dim selec2 As String
Dim list1LI As Integer
Dim list2LI As Integer
Dim addStr As String
Dim selectB As IntegerIf List2.Text = "" Then
selectB = MsgBox("¶ÔÕÕ×Ö¶Î²»ÄÜÎª¿Õ!", vbOKOnly, "ÏµÍ³ÌáÊ¾", "0", "0")
Else
selec1 = List1.Text
selec2 = List2.Text
list1LI = List1.ListIndex
list2LI = List2.ListIndex
addStr = selec1 & "." & selec2
List5.AddItem addStr
List2.SetFocus
End If
End SubPrivate Sub button_ok_Click()  '根据选项生成SQL语句Dim i As Integer
Dim listcounts As IntegerList5.SetFocus
TextBox1.Text = ""
listcounts = List5.ListCount
If listcounts <> 0 Then
   For i = 0 To listcounts - 1
      If i <> listcounts - 1 Then
      SQLTables = SQLTables & Left$(List5.List(i), findDot(List5.List(i))) & ","
      SQLFields = SQLFields & List5.List(i) & ","
      Else
      SQLTables = SQLTables & Left$(List5.List(i), findDot(List5.List(i)))
      SQLFields = SQLFields & List5.List(i)
      End If
   Next i
   TextBox1.Text = "select " & SQLFields & " from " & SQLTables
Else
  MsgBox "ÅäÖÃÐÅÏ¢Îª¿Õ!", , "ÏµÍ³ÐÅÏ¢!"
  Exit Sub
End If
End SubPrivate Sub button_save_Click()
Dim cnn7
Dim rst7 As New ADODB.Recordset
Dim sqlStrs As String
Dim FirstOrNot As Boolean
YinHao = Chr(39)
Set cnn7 = CreateObject("ADODB.Connection")
cnn7.Open "DRIVER=Microsoft Access Driver (*.mdb);DBQ=e:\vb_wbm\DataPump.mdb"
sqlStrs = "select * from SQLS where strtype='" & Combo1.Text & "'"
rst7.Open sqlStrs, cnn7, adOpenKeyset, adLockOptimistic'First or not
If rst7.RecordCount = 0 Then
FirstOrNot = True
Else
FirstOrNot = False
End If
'Save it
If FirstOrNot = True Then
rst7.AddNew
rst7.Update rst7.Fields(1).Name, Combo1.Text
rst7.Update rst7.Fields(2).Name, TextBox1.Text   ''''*******在这里报错
rst7.Update
rst7.Close
cnn7.Close
Else
rst7.Update rst7.Fields(1).Name, Combo1.Text
rst7.Update rst7.Fields(2).Name, TextBox1.Text
rst7.Close
cnn7.Close
End If
List4.Clear
List5.Clear
End SubPrivate Sub Command1_Click()
Load frm_MakeSql
End SubPrivate Sub delectS_Click()
If List5.Text <> "" Then
List5.SetFocus
List5.RemoveItem List5.ListIndex
Else
Exit Sub
End If
End SubPrivate Sub Form_Load()
Dim rstSchema
Dim cnn1, cnn1str
Dim i As Integer
Dim msg As String
SQLTables = ""
SQLFields = ""
Combo1.AddItem "ÉÌÆ·ÐÅÏ¢"
Combo1.AddItem "ÏúÊÛÐÅÏ¢"
Combo1.AddItem "Éú²úÉÌÐÅÏ¢"
Set cnn2 = CreateObject("ADODB.Connection")
cnn2str = "User ID=" & userIDS & ";Password=" & pwdS & ";Data Source=" & dsnS
cnn2.Open cnn2str
db_initi.List1.Clear
On Error GoTo errormsg
Set cnn1 = CreateObject("ADODB.Connection")
cnn1str = "User ID=" & userIDS & ";Password=" & pwdS & ";Data Source=" & dsnS
cnn1.Open cnn1strSet rstSchema = cnn1.OpenSchema(adSchemaTables)
Do Until rstSchema.EOF
         List1.AddItem rstSchema!TABLE_NAME
         rstSchema.MoveNext

Loop
rstSchema.Close
cnn1.Close
errormsg:
Select Case Err.Number
       Case -2147217843
       msg = "´íÎóµÄÓÃ»§ÃûºÍÃÜÂë!" & Err.Number
       MsgBox (msg)
       Exit Sub
    Case Else
End Select
End Sub
Private Sub List1_DblClick()     '刷新LIST2newfieldsEnd SubPrivate Sub newfields()
Dim i As Integer
Dim strTbName As String
Dim strFldName As String
Dim rslist2 As New ADODB.Recordset
Dim strsql As String
Dim errstr As String

On Error GoTo errmsg3
db_initi.List2.Clear
strTbName = List1.Text
strsql = "select * from " & strTbName & " where 0=1"
rslist2.Open strsql, cnn2
For i = 0 To rslist2.Fields.Count - 1
    strFldName = rslist2.Fields(i).Name
    List2.AddItem strFldName
Next i
List2.ListIndex = 0
Set rslist2 = Nothingerrmsg3:
Select Case Err.Number
   Case -2147217911
     errstr = "²»ÄÜ¶ÁÈ¡¼ÇÂ¼£»ÔÚ'" & List1.Text & "'ÉÏÃ»ÓÐ¶ÁÈ¡Êý¾ÝÈ¨ÏÞ"
     MsgBox (errstr)
     Exit Sub
   Case -2147217900
     errstr = "FROM ×Ó¾äÓï·¨´íÎó,¿ÉÄÜÊÇÄúÑ¡ÔñµÄ±íÃû´´½¨µÄÓÐÎÊÌâ¡£ÀýÈç£ºÖÐ¼äÓÐ¿Õ¸ñ..."
     MsgBox (errstr)
     Exit Sub
   Case Else
     Exit Sub
End Select
End Sub
Private Function findDot(listStr As String) As Long
Dim fanhui As Long
Dim retB
fanhui = InStr(listStr, ".")
If fanhui = Null Or fanhui = 0 Then
   retB = MsgBox("Sorry!×Ö·û´®ËÑË÷ÐÅÏ¢ÐÅÏ¢ÓÐÎó!", vbQuestion, "À´×ÔARBSS->findDotµÄ´íÎó")
Else:
      findDot = fanhui - 1
End IfEnd Function
程序挺乱的见笑了!
rst7.Update rst7.Fields(index)中index是从0开始你，你好象只有两列数据应为0，1不能为2呀
NO.表中有3个字段.ID(自动编号),strtype,sqlstr
rst7.addnew
rst7.fields!strtype=Combo1.Text
rst7.fields!sqlstr=TextBox1.Text
试试看
忘了，还有一句
rst7.update
no.数据库中有3个字段,ID(自动编号),strtype,sqlstr
我知道了,原来是access的SQLS表的SQLSTR字段宽度不够!!!!!!
又请问, access中哪种类型可以放置不定长的字符串? 备注?