Problema con MySql
 

Tengo un problema, al querer conectar una BD en MySql con Visual Basic me manda error de que la base de datos es de solo lectura, ¿como quito esa condicion?

Re: Problema con MySql
 

Bueno aqui mas bien creo que es la forma en que abres el Recordset,

Puedes postearlo?

Saludos

<center><a href="http://www.forosdelweb.com/comment_usr.asp?usr=urjose">
<img border="0" src="http://pcmasmas.com.ar/foro/images/avatars/043.gif"></a></center>

Re: Problema con MySql
 

hola, mira bajé este codigo de internet:
Option Explicit
Dim sql As String
Public myCon As New ADODB.Connection
Public myCmd As New ADODB.Command
Public myRS As New ADODB.Recordset
Private Sub cmdsig_Click()
If Not myRS.BOF Then myRS.MoveNext
If myRS.EOF And myRS.RecordCount &gt; 0 Then
Beep
myRS.MoveLast
End If
Mostra_dados
End Sub
Private Sub Form_Load()
On Error GoTo Error
sql = &quot;SELECT * FROM categoria&quot;
myCon.Open &quot;DSN=MySql sistema&quot;
With myCmd
Set .ActiveConnection = myCon
.CommandType = adCmdText
.CommandText = sql
End With
With myRS
.LockType = adLockPessimistic
.CursorType = adOpenKeyset
.CursorLocation = adUseClient
.Open myCmd
End With
myRS.MoveFirst
Mostra_dados
On Error GoTo 0
Form_Load_Exit:
Exit Sub
Error:
MsgBox Err.Number &amp; vbCrLf &amp; Err.Description, vbExclamation, &quot;Erro em [Form_Load]&quot;
End Sub
Private Sub Mostra_dados()
On Error GoTo Error
Text1.Text = myRS(&quot;clave_cat&quot;)
If IsNull(myRS(&quot;descripción&quot;)) Then
Text2.Text = &quot;&quot;
Else
Text2.Text = myRS(&quot;descripcion&quot;)
End If
On Error GoTo 0
Mostra_dados_Exit:
Exit Sub
Error:
MsgBox Err.Description, vbExclamation, &quot;Erro em [Mostra_dados]&quot;
End Sub
Private Sub cmdnuevo_Click()
Dim iConta As Integer
Dim icodigo As String
On Error GoTo Error
Text1.Text = &quot;&quot;
Text2.Text = &quot;&quot;
myRS.MoveLast
icodigo = Val(myRS(&quot;clave_cat&quot;)) + 1
myRS.AddNew
Text1.Text = CStr(icodigo)
Text1.SetFocus
On Error GoTo 0
cmdnuevo_Exit:
Exit Sub
Error:
MsgBox Err.Description, vbExclamation, &quot;Erro em [cmdnuevo]&quot;
End Sub
Private Sub cmdguardar_Click()
On Error GoTo Error
myRS(&quot;clave_cat&quot;) = &quot;&quot; &amp; Text1.Text
myRS(&quot;descripcion&quot;) = &quot;&quot; &amp; Text2.Text
myRS.Update
MsgBox &quot;Operação realizada com sucesso !&quot;, vbInformation, &quot;Salvar Inclusão/Alteração&quot;
On Error GoTo 0
cmdguardar_Exit:
Exit Sub
Error:
MsgBox Err.Description, vbExclamation, &quot;Erro em [cmdguardar]&quot;
End Sub
este es el que me da broncas, y veces pone solo escritura y a veces no deja guardar