none
скрипт VBS добавления записи в базу MS SQL Server, помогите разобраться

    Вопрос

  • Доброго времени суток.

    Есть скрипт,который добавляет запись в таблицу User c полями Name и IP в базе User_list. Вроде все правильно, но выдает ошибку :  -Неправильный синтаксис около ключевого слова "User"- кучу информации перечитал, но везде указывается строка - rs.Open ""select * from User", cn - именно через запятую... 

    Dim cn
    
    Set cn = CreateObject("ADODB.Connection")
    
    cn.Provider = "SQLOLEDB.1"
    
    cn.ConnectionString = "Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=User_list;Data Source=c00041"
    
    cn.Open
    
    Dim rs
    
    Set rs = CreateObject("ADODB.Recordset")
    
    rs.CursorType = 2
    
    rs.LockType = 3
    
    rs.Open ""select * from User", cn 
    
    rs.AddNew
    
    rs.Fields("IP").Value =  "10.10.10.10"
    
    rs.Fields("Name").Value =  "rrr"
    
    rs.Update

     

    20 октября 2011 г. 7:10

Ответы

  • Function InsertDatabaseRecord(hostName, databaseName, tableName, tableFields, tableValues)
       Dim objConnection, sqlStatement
       InsertDatabaseRecord = False
       sqlStatement         = "Insert Into " & tableName & "(" & tableFields & ") Values (" & tableValues & ")"
       On Error Resume Next
          Set objConnection = CreateObject("ADODB.Connection")
          If Err.Number <> 0 Then
             LogError "Creating ADO connection Object"
             Exit Function
          End If
          objConnection.Open "Provider=SQLOLEDB.1;Integrated Security=SSPI;" & _
                             "Persist Security Info=False;Initial Catalog=" & databaseName & ";" & _
                             "Data Source=" & hostName
          If Err.Number <> 0 Then
             LogError "Opening the " & DQ(databaseName) & " on " & DQ(hostName)
             Exit Function
          End If
          objConnection.execute sqlStatement
          If Err.Number <> 0 Then
             LogError "Executing SQL Statement " & DQ(sqlStatement)
             Exit Function
          End If
       On Error Goto 0
       InsertDatabaseRecord = True
    End Function
    
    http://social.technet.microsoft.com/Forums/en-US/ITCG/thread/9ba485b6-f4be-4252-b445-685490ddf56d/
    • Помечено в качестве ответа AndrisRA 20 октября 2011 г. 10:27
    20 октября 2011 г. 8:40
    Отвечающий

Все ответы

  • Function InsertDatabaseRecord(hostName, databaseName, tableName, tableFields, tableValues)
       Dim objConnection, sqlStatement
       InsertDatabaseRecord = False
       sqlStatement         = "Insert Into " & tableName & "(" & tableFields & ") Values (" & tableValues & ")"
       On Error Resume Next
          Set objConnection = CreateObject("ADODB.Connection")
          If Err.Number <> 0 Then
             LogError "Creating ADO connection Object"
             Exit Function
          End If
          objConnection.Open "Provider=SQLOLEDB.1;Integrated Security=SSPI;" & _
                             "Persist Security Info=False;Initial Catalog=" & databaseName & ";" & _
                             "Data Source=" & hostName
          If Err.Number <> 0 Then
             LogError "Opening the " & DQ(databaseName) & " on " & DQ(hostName)
             Exit Function
          End If
          objConnection.execute sqlStatement
          If Err.Number <> 0 Then
             LogError "Executing SQL Statement " & DQ(sqlStatement)
             Exit Function
          End If
       On Error Goto 0
       InsertDatabaseRecord = True
    End Function
    
    http://social.technet.microsoft.com/Forums/en-US/ITCG/thread/9ba485b6-f4be-4252-b445-685490ddf56d/
    • Помечено в качестве ответа AndrisRA 20 октября 2011 г. 10:27
    20 октября 2011 г. 8:40
    Отвечающий
  • спасибо огромное)))
    20 октября 2011 г. 10:27