Bases de Datos - como conectar una base de datos access 2003

   
Vista:

como conectar una base de datos access 2003

Publicado por ALEX PRINCIPIANTE (2 intervenciones) el 23/01/2008 18:01:32
hola cibernautas y programadores ..........espero se encuentren bien y perdonen las molestias lo q pasa es que soy principiante en el tema pero con mucha logica y toy haciendo unos pequeños proyectos y necesito saber como se conecta una base de datos hecha en access 2003 hey muchicimas gracias por colaboracion un dios les pague si quieren me pueden escribir a < derh7280@hotmail.com> "alex"

g
r
a
c
i
a
s

y

u
n

D
I
O
S

LES PAGUE
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder
información
Otras secciones de LWP con contenido de Bases de Datos
- Cursos de Bases de Datos
- Temas de Bases de Datos
información
Cursos y Temas de Bases de Datos
- Manual de Progress
- Tutorial de Bases de datos
- APIs XML para Bases de Datos

RE:como conectar una base de datos access 2003

Publicado por JoSeTxU (12 intervenciones) el 24/01/2008 21:08:32
Concectar Access a qué?
A una base de datos distinta de Access?
A una aplicación para que ésta pueda acceder a los datos de Access?
Si es así, en qué lenguaje estás programando?
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:JoSeTxU

Publicado por ALEX PINCIPIANTE (2 intervenciones) el 24/01/2008 21:21:16
HEY :JoSeTxU ES PARA CONECTARLA A UNA aplicación para que ésta pueda acceder a los datos de Access Y ESTOY PROGRAMANDO EN VISUAL BASIC 6.0
MUCHICIMASA GRACIAS POR LA COLABORACION
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:JoSeTxU

Publicado por JoSeTxU (12 intervenciones) el 24/01/2008 21:26:57
Ejemplo real en ActiveX (bastante parecido al VB6)...

Private Function carga_Total()

Dim rs As New ADODB.Recordset
Dim cnx As New ADODB.Connection
Dim xmlRet As New MSXML2.DOMDocument
Dim IMatriz(0 To 9) As Long
Dim contar As Long
Dim TablaOrigen As String
Dim TablaDestino As String
Dim idDirecc As Long
Dim ltotReg As Long

bcancel = False ' inicialización para el proceso de cancel

cnx.ConnectionString = "UID=sa;PWD=sa;DATABASE=X_BORRADOR;SERVER=SDHERPRESQL03;DRIVER=SQL SERVER;DSN='';APP=NORMA;TIMEOUT=60"
cnx.Open

Text1.Text = cnx.ConnectionString

TablaOrigen = "datos_originales"
TablaDestino = "salida_norma"

Set rs.ActiveConnection = cnx
rs.CursorLocation = adUseServer
rs.CursorType = adOpenForwardOnly

' calculo del nº de registros en el sistema
rs.Open "Select count(*) from " & TablaOrigen
ltotReg = rs.fields(0).Value
rs.Close

Label3.Caption = CStr(ltotReg)

' recuperación de datos de entrada
rs.Open "SELECT * FROM " & TablaOrigen

xmlRet.async = False
contar = 1

cnx.Execute "DELETE FROM " & TablaDestino

Do While rs.EOF = False And Not bcancel

idDirecc = rs.fields(0).Value
strsource = "http://sdhernorma01v/normalizador/normaliza.asp?data=<norma><item%20guid='1'%20pais='ESP'%20tipo='DIR'>" + rs.fields(1).Value + " </item></norma>"

xmlRet.Load strsource

List1.AddItem rs.fields(0).Value & " -- " & rs.fields(1).Value
List1.Refresh
'Debug.Print strsource
If Not (xmlRet.selectSingleNode("//output") Is Nothing) Then
Index = CInt(xmlRet.selectSingleNode("//output").Attributes.getNamedItem("level").Text)
IMatriz(Index) = IMatriz(Index) + 1
cnx.Execute "execute INSERTANORMA " & CStr(idDirecc) & ",'" & Replace(CStr(xmlRet.selectSingleNode("/norma").xml), "'", "''") & "'"
End If

Label1.Caption = CStr(contar)
contar = contar + 1
Label4.Caption = CStr(CInt(10000 * contar / ltotReg) / 100) + " %"
rs.MoveNext
DoEvents

Loop

rs.Close

If bcancel = True Then
MsgBox "Proceso cancelado por el usuario"
Unload Me
Else
MsgBox "Finalizado proceso de datos totales"
End If

End Function
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar