FIREBIRD READ-ONLY???
Pessoal, o que tem de errado nessa rotina?
Dim Db As New ADODB.Connection, Tb As New ADODB.Recordset
Db.Open([Ô]dsn=sisfacildb[Ô])
Tb.ActiveConnection = Db
Tb.Open([Ô]select * from estoque[Ô])
FileOpen(1, [Ô]c: esteSQLServer.txt[Ô], OpenMode.Output)
Do While Not Tb.EOF
Print(1, Tb([Ô]cod[Ô]).Value & [Ô] - [Ô] & UCase(Tb([Ô]descr[Ô]).Value) & vbCrLf)
Tb.MoveNext()
Loop
FileClose(1)
MsgBox([Ô]OK[Ô], vbInformation)
Tb.AddNew()
Tb([Ô]cod[Ô]).Value = 5000
Tb([Ô]descr[Ô]).Value = [Ô]teste de inserção de registros[Ô]
Tb.Update()
MsgBox([Ô]Salvo[Ô], vbInformation)
Para fazer a leitura dos dados vai tudo normalmente... para gravar me retorna o um erro dizendo que a tabela esta travada para somente leitura.
Dim Db As New ADODB.Connection, Tb As New ADODB.Recordset
Db.Open([Ô]dsn=sisfacildb[Ô])
Tb.ActiveConnection = Db
Tb.Open([Ô]select * from estoque[Ô])
FileOpen(1, [Ô]c: esteSQLServer.txt[Ô], OpenMode.Output)
Do While Not Tb.EOF
Print(1, Tb([Ô]cod[Ô]).Value & [Ô] - [Ô] & UCase(Tb([Ô]descr[Ô]).Value) & vbCrLf)
Tb.MoveNext()
Loop
FileClose(1)
MsgBox([Ô]OK[Ô], vbInformation)
Tb.AddNew()
Tb([Ô]cod[Ô]).Value = 5000
Tb([Ô]descr[Ô]).Value = [Ô]teste de inserção de registros[Ô]
Tb.Update()
MsgBox([Ô]Salvo[Ô], vbInformation)
Para fazer a leitura dos dados vai tudo normalmente... para gravar me retorna o um erro dizendo que a tabela esta travada para somente leitura.
é amigão não posso ajudar, Recordset ja é quase lingua morta pra mim e ainda mais em .NET...
Porque não usa ADO.NET ??
Abraços
Porque não usa ADO.NET ??
Abraços
vc tá querendo gravar no arquivo txt ou na tabela do BD?
Tópico encerrado , respostas não são mais permitidas