Enlaces VB y bases de datos

1. Utilice el control Adodc para conectarse a la base de datos

Ejemplo:

Adodc1.ConnectionString = "DBQ=E:\system.mdb;Driver={Microsoft Access Driver (*.mdb)} ;pwd= 123;"

Adodc1.RecordSource="seleccione * de Profesional donde *.RecordSource = "seleccione * de Profesional donde Nombre del Profesional <>'123'"

Adodc1. Actualizar

Establecer Text1.DataSource = Adodc1

Text1.DataField = "Nombre del profesional"

II. Conectarse a la base de datos sin usar el control Adodc

Adodc Aunque el control es simple y fácil de usar, tiene muchas limitaciones y es lento, por lo que no se puede usar sin él. Usando ADO, puede cambiar dinámicamente la propiedad DataSouce del control vinculado en el código, por lo que el El control se puede vincular al objeto RecordSet, no necesariamente al objeto RecordSet a los controles Adodc, lo cual es mucho más conveniente que DAO. Creo que esto reduce aún más la necesidad de usar controles Adodc (en realidad, nunca los uso correctamente). p>

Primero, agregue una referencia a ADO, menú "Proyecto" -> "Referencia" -> biblioteca Microsoft ActiveX Data Objects 2.5 (no necesariamente 2.5, 2.1 también es aceptable. También puede colocar el control Adodc). el formulario, Deje que VB agregue esta referencia automáticamente

Ejemplo 1: este ejemplo no utiliza una cadena de conexión con un DSN, sino que especifica el controlador ODBC. Para especificar el DSN, debe definir el ODBC. datos a través del Panel de control de Windows, esto es un poco problemático y habrá problemas al empaquetar e instalar en el futuro. Abra "Major", cn, adOpenDynamic, adLockReadOnly, adCmdTable

Establezca Text1. DataSource = rs

Text1 .DataField = " Nombre profesional"

Ejemplo 2: Se prefiere usar la interfaz OLE DB y es mucho más rápido que ODBC. Como dice MSDN, "Para los programadores que usan ADO o RDS, el entorno ideal es que cada fuente de datos tenga una interfaz OLE DB para que ADO pueda llamar a la fuente de datos directamente". Por supuesto, Access proporciona una interfaz OLE DB, así que llevemos ODBC más allá :)

Atenuar cn como nuevo ADODB.Connection

Atenuar rs como nuevo ADODB.Recordset

cn.Open "PROVIDER=Microsoft.Jet.OLEDB.4mdb;Jet OLEDB:Contraseña de la base de datos=123;"