Option Explicit Const DSN = "Driver={MySQL ODBC 5.1 Driver};Uid=root;Pwd=*****;Server=localhost;Database=test;OPTION=1+2+67108864" Const adOpenForwardOnly = 0 Const adOpenKeyset = 1 Const adOpenDynamic = 2 Const adOpenStatic = 3 Const adOpenUnspecified = -1 Const adUseNone = 1 Const adUseServer = 2 Const adUseClient = 3 Const adLockReadOnly = 1 Const adLockPessimistic = 2 Const adLockOptimistic = 3 '---- ParameterDirectionEnum Values ---- Const adParamUnknown = &H0000 Const adParamInput = &H0001 Const adParamOutput = &H0002 Const adParamInputOutput = &H0003 Const adParamReturnValue = &H0004 '---- CommandTypeEnum Values ---- Const adCmdUnknown = &H0008 Const adCmdText = &H0001 Const adCmdTable = &H0002 Const adCmdStoredProc = &H0004 Const adCmdFile = &H0100 Const adCmdTableDirect = &H0200 Const adInteger=3 Const adDate=7 Const adVarChar=200 Dim cnxDatabase Dim strSQL Dim strTest ' connecting database Set cnxDatabase = CreateObject("ADODB.Connection") cnxDatabase.Open(DSN) If cnxDatabase.State = 1 Then Wscript.Echo "Connected" cnxDatabase.Execute("USE test") cnxDatabase.Execute("DROP TABLE IF EXISTS `bug36071`") cnxDatabase.Execute("create table bug36071(`Name` VARCHAR(16) NOT NULL PRIMARY KEY, `Something` VARCHAR(45) DEFAULT NULL, `MyLongTextFld` LONGTEXT, UNIQUE KEY_UNI(`Something`));") cnxDatabase.Execute("INSERT INTO bug36071 VALUES('Louis', 'Testje','First text in longtext field');") End If ' querying data strSQL = "SELECT * FROM bug36071" Dim rs1 Set rs1 = CreateObject("ADODB.Recordset") With rs1 .ActiveConnection = cnxDatabase .LockType = adLockOptimistic '3 .CursorType = 2 'adOpenStatic 3, adOpenKeyset 1, 2 adOpenDynamic .CursorLocation = 3 '3 adUseClient '1 adUseServer .Properties("Update Criteria").Value = 0 .Open(strSQL) End With Wscript.Echo "rs opened" WScript.echo _ rs1.Fields(0).Name & chr(10) & _ " Type: " & rs1.Fields(0).Type & chr(10) & _ " Size: " & rs1.Fields(0).DefinedSize & chr(10) & _ " Scale: " & rs1.Fields(0).NumericScale & chr(10) & _ " Precision: " & rs1.Fields(0).Precision WScript.echo _ rs1.Fields(1).Name & chr(10) & _ " Type: " & rs1.Fields(1).Type & chr(10) & _ " Size: " & rs1.Fields(1).DefinedSize & chr(10) & _ " Scale: " & rs1.Fields(1).NumericScale & chr(10) & _ " Precision: " & rs1.Fields(1).Precision WScript.echo _ rs1.Fields(2).Name & chr(10) & _ " Type: " & rs1.Fields(2).Type & chr(10) & _ " Size: " & rs1.Fields(2).DefinedSize & chr(10) & _ " Scale: " & rs1.Fields(2).NumericScale & chr(10) & _ " Precision: " & rs1.Fields(2).Precision 'V1 rs1.MoveFirst rs1("MyLongTextFld") = "This should work too. With: Some very long text to put into MyLongTextFld field to test Bug#36071" rs1.Update 'V2, BLOB way ' modify field value 'strTest = "Some very long text to put into MyLongTextFld field to test Bug#36071" 'Set fld = rs1.Fields("MyLongTextFld") 'fld.AppendChunk strTest 'rs1.Update rs1.Close Set rs1 = Nothing Set cnxDatabase = Nothing