Mensajes

Código [Seleccionar] Expandir

Cn.connectionstring="provider=SQLOLEDB;DATA SOURCE=(local);INITIAL CATALOG=MIDB;USER ID=Hacktor;PASSWORD=123456;DNS=MIDNS;"
Creo que asi no funciona el data source, para SQL Server, tienes que poner el nombre del servidor (Nombre de la maquina donde tienes la bd).

Saludos

Investiga sobre estas api's GetPrivateProfileString,WritePrivateProfileString, son sencillas de usar, son para generar archivos .ini.

te quedaria el archivo mas o menos asi:

Código [Seleccionar] Expandir

[Servidor]
HacktorSRV
[IP]
27.0.0.1
[Admin]
Hacktor


Saludos

El Codigo esta correcto, lo unico es que esta incompleto, le falta la cadena de conexion a la base de datos.

Código [Seleccionar] Expandir

Dim Cn As ADODB.Connection, Cmd As ADODB.Command, Rec As ADODB.Recordset
Dim Sql As String

Private Sub Command1_Click()
'Para sql server
cn.connectionstring="provider=SQLOLEDB;DATA SOURCE=Nom Servidor;INITIAL CATALOG=Base de datos;USER ID=usuario sql;PASSWORD=pass usuario sql;DNS=;"

'Para access
cn.connectionstring="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=ruta y nom del archivo access"

cn.cursorlocation=adUseClient
cn.open
Sql = "UPDATE dbo.MITABLA SET datos = '1' where memb = 'Hacktor'"
set rec=Cn.Execute(sql, , adCmdText)
End Sub

Ese seria mas o menos el codigo para ejecutar esa sentencia y cualquier otra(Delete, Select, etc).

Saludos

Aparentemente el codigo esta correcto, no veo algun error, lo que puede estar provocando el error puede ser el nombre del campo de la tabla

Código [Seleccionar] Expandir

Select Count(*) As Conteo From CDRoom Where Titulo CDRoom= '" & txtTituloCDRoom.Text & "'"
porque no intentas cambiando el nombre a titulo_cdroom o titulocdroom o como quieras llamarlo, pero sin dejar espacio en blanco.

Saludos

Podrias probar guardando el archivo de access en la misma carpeta de tu exe y simplemente llamalo asi

Código [Seleccionar] Expandir

app.path & "\bd.mdb"

Saludos

Si lo que necesitabas era sacar el numero maximo + 1, puedes hacerlo de  esta manera

Código [Seleccionar] Expandir

Select campo=max(campo)+1 from tabla esta seria otra alternativa, para que no hicieras mas codigo de vb  .

Saludos

Te recomiendo que cuando creas la tablas de la base de datos, uses campos llaves, de esa manera es mas rapido el moverte entre los registros, eso que comentas que te los guarda de manera desordenada, es porque no hay un campo llave, lo que puedes hacer en este caso es, antes de guardar los datos en la base de datos ordena los datos del RecordSet del control data.

Saludos

prueba con esto

Código [Seleccionar] Expandir

Private letra As String
Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer)
  letra = ""
  If KeyCode = 46 Then
    letra = "p"
  End If
End Sub
Private Sub Text1_KeyUp(KeyCode As Integer, Shift As Integer)
  If Len(letra) > 0 Then Text1.Text = letra
End Sub 

Saludos

Prueba poniendo esta linea antes de ejecutar tu query

Código [Seleccionar] Expandir

set ObjRs2 = Createobject("ADODB.Recordset"), claro, esto suponiendo que usas ado para la conexion.

Saludos

http://www.connectionstrings.com/ Aqui podras encontrar lo que buscas.

Saludos