Question

我创建了两个MSSQL 2005 Express数据库：

第一个数据中的

可以使用以下VBSript进行更新：

Dim conn, SQL, rs
Const DB_CONNECT_STRING = "Provider=SQLOLEDB.1;Data Source=DJ-PC;Initial Catalog=Baza_NC;user id ='user_baza_nc';password='password'"
Set myConn = CreateObject("ADODB.Connection")
Set myCommand = CreateObject("ADODB.Command" )
myConn.Open DB_CONNECT_STRING
Set myCommand.ActiveConnection = myConn
rem myCommand.CommandText = "UPDATE Klienci_NC SET Klienci_NC.Klient = 'Hello'"
rem myCommand.CommandText = "UPDATE Klienci_NC SET Klienci_NC.Klient = '" & Klient_niceform & "'"

myCommand.CommandText = "UPDATE Klienci_NC SET Klienci_NC.Klient = '" & Klient_niceform & "' WHERE Klienci_NC.ID = '" & ID_zmienna & "'"

'declare the SQL statement that will query the database
rem SQL = "SELECT * FROM Quality.ComplaintLog WHERE PK_ComplaintID = '" & NL_ComplaintID & "'"


rem SQL = "UPDATE Klienci_NC SET Klienci_NC.Klient = " & Klienci_NC.Klient & " WHERE Klienci_NC.ID = '" & Klienci_NC.ID & "'"

myCommand.Execute
myConn.Close

我想在添加下一条记录时简化添加下一个数字，并创建了第二个数据库：

创建表格和自动递增：

enter image description here

不幸的是，现在使用VBScript更新数据：

Dim conn, SQL, rs
Const DB_CONNECT_STRING = "Provider=SQLOLEDB.1;Data Source=DJ-PC;Initial Catalog=Baza;user id ='user1';password='Pass'"
Set myConn = CreateObject("ADODB.Connection")
Set myCommand = CreateObject("ADODB.Command" )
myConn.Open DB_CONNECT_STRING
Set myCommand.ActiveConnection = myConn
rem myCommand.CommandText = "UPDATE Klienci_NC SET Klienci_NC.Klient = 'Hello'"
rem myCommand.CommandText = "UPDATE Klienci_NC SET Klienci_NC.Klient = '" & Klient_niceform & "'"

'myCommand.CommandText = "UPDATE Klienci SET Klienci.Klient = '" & Klient_niceform & "' WHERE Klienci.ID '"


myCommand.CommandText = "UPDATE Klienci SET Klienci.Klient = '" & Klient_niceform & "' WHERE Klienci.ID = '" & ID_zmienna & "'"

'declare the SQL statement that will query the database
rem SQL = "SELECT * FROM Quality.ComplaintLog WHERE PK_ComplaintID = '" & NL_ComplaintID & "'"


rem SQL = "UPDATE Klienci_NC SET Klienci_NC.Klient = " & Klienci_NC.Klient & " WHERE Klienci_NC.ID = '" & Klienci_NC.ID & "'"

myCommand.Execute
myConn.Close

不幸的是，它不起作用。

按下帮助按钮的操作，VBScript是相同的：

1代码：

myCommand.CommandText = "UPDATE Klienci_NC SET Klienci_NC.Klient = '" & Klient_niceform & "' WHERE Klienci_NC.ID = '" & ID_zmienna & "'"

2代码：

myCommand.CommandText = "UPDATE Klienci SET Klienci.Klient = '" & Klient_niceform & "' WHERE Klienci.ID = '" & ID_zmienna & "'"

只有数据库名称和列已更改。

我做了邮政柜台： Downloading content from txt file to a variable

txt文件的帮助，效果很好。

您是否要求将ID列的字符转换转移到变量Licznik_ID？

你如何寻求VBScript的帮助？

自动增加MSSQL中的字段 - 所需的转换是否是从int到字符串的转换？

0 个答案: