Archivo.mdf

[juan carlos bellucci]

Hola a Todos los integrantes del Foro .... una pregunta tengo que hacer un sistema que trabajes con una base de datos ya creada es del tipo BASE.MDF fue creada con vissual basic.net si alguien tiene algun fuente ilustrativo se los agradeceria , yo probe como lo hago con las base.mdb pero me da error .... desde ya muchas gracias

[antonio.ortega]

Hola, Juan Carlos

Tienes que cambiar la cadena de conexión porque es una base de datos Ms SQL Server, yo uso


cStr := "Driver={SQL Server}" + ;
";server=tuservidor" + ;
";database=basededatos" + ;
";uid=usuario" + ;
";pwd=tupassword"

hay quienes usan

"Provider=SQLOLEDB;" + ;
"server= tuservidor " + ;
";database=basededatos"+ ;
";uid=usuario" + ;
";pwd=tupassword"


Saludos.

[juan carlos bellucci]

Hola Antonio, desde ya gracias por tu ayuda.
Mira he probado asi pero aun no me da resultados. si tenes algun ejemplo mas je je estare muy agradecido , yo uso fwh 6.12 y xharbour....bcc55


#Include "Fivewin.Ch"
#Include "Ado.Ch"


//--------------------------------------------------------------------------//
Function Main()
Local oCone

// oCone := "Driver={SQL Server}" + ";server=tuservidor" + ";database=Medicus.mdf" + ";uid=usuario" + ;
// ";pwd=tupassword"
// Este es el ejemplo a usar


oCone:=tOleAuto():new("ADODB.connection")
// oCone:open("Provider= MicroSoft.Jet.OLEDB.4.0;Data Source=.\Data\Datos.mdb;")
// esta es una conexion para mdb que funciona bien

oCone:open("Provider = SQLOLEDB.4.0;Data Source=.\Medicus.mdf;")
// aca coloque labase medicus.mdf en la misma carpeta

//--------------------------------------------------------------//
If Empty(oCone)
MsgAlert(" No se Pudo Establecer la Conexion Con La Base De Datos..","Atencion")
Return(Nil)
EndIf
//--------------------------------------------------------------//

CreaBancos(oCone)
Return( Nil )
//-------------------------------------------------------------------------//
// Tabla de Bancos
//--------------------------------------------------------------------------//
Static Function CreaBancos(oCone)
Local Data1
Local oError
Data1:=tOleAuto():New("ADODB.RecordSet")
Data1:CursorLocation := adUseClient
Data1:CursorType := adOpenDynamic
Data1:LockType := adLockOptimistic
Data1:ActiveConnection := oCone
Data1:Source := "CREATE TABLE BANCOS ( Registro COUNTER, Numero NUMBER, " + ;
" Banco TEXT(30), Direccion TEXT(30), " + ;
" Cuenta TEXT(20), Telefono TEXT(16), " + ;
" Fax TEXT(16), Saldo SINGLE, " + ;
" Mail TEXT(50), Contacto TEXT(30), " + ;
" Relacion TEXT(12) ) "
TRY
Data1:Open()
CATCH oError
Return( .F. ) // So Hay error
END
//-------------------//


Return( Nil )

[antonio.ortega]

Hola,

Tienes que poner la cadena de conexión de tal cual la puse en el post anterior

Esto es lo que estas poniendo tu:
oCone:open("Provider = SQLOLEDB.4.0;Data Source=.\Medicus.mdf;")

y esto es lo que deberias poner:

cStr := "Provider=SQLOLEDB;" + ;
"server= tuservidor " + ;
";database=basededatos"+ ;
";uid=usuario" + ;
";pwd=tupassword"

oCone:open(cStr)

Esto en cuanto al prg , en el equipo debes tener instalado el SQL Server / o SQL Server Express y adjuntar el fichero mdf a una instancia.

http://msdn.microsoft.com/es-es/library/ms190209.aspx

o bien tener el nombre/ip del servidor un usuario y contraseña y que la base de datos en cuestión este dentro del mismo.

Saludos.

Antonio F. Ortega