| Usuario |
Auxilio!!!! Ayuda Urgente |
kitni
5 Mensaje(s) |
| Enviado - 15/5/2002 |
| |
¡Hola!, Necesito que mi programa sea capaz de crear una Base de Datos, con sus respectivas tablas, en Access, conectadas por ODBC, no sé cómo crear la conexión, por favor ayúdenme.
Muchas gracias
pd: de pasadita, si alguien sabe cómo imprimir un logo (archivo .BPM), también necesito saberlo, porque debo imrpimir en unas boletas el logo de la empresa que presta los serviciosn
|
| |
|
racav
2 Mensaje(s) |
| Enviado - 15/5/2002 |
| |
Hola Kitni, para poder crear la base de datos algo que podrías hacer es revisar los códigos fuente de Visdata (Administrador Visual de Datos) que vienen con el CD de Visual Studio y ver de que forma crea esa aplicación las bases de datos en tiempo de ejecución.
En cuanto a tu otra pregunta te recomiendo utilizar una aplicación gratuita para desarrollar reportes que se llama RPV Printing System. Es una herramienta que a mi me dio muy buenos resultados, y permite hacer lo que vos necesitas de una manera muy sencilla. Si queres probarla la podés descargar de www.rpvreport.com/span
Espero que te sea de utilidad. Cualquier cosa podes preguntarme. Suerte!
|
| |
|
rmendez
12 Mensaje(s)
|
| Enviado - 10/7/2002 |
| |
| Yo tengo el codigo para crear el tablas en tiempo de ejecucion, por supuesto en access, escribeme a mi correo para enviartelo |
| |
|
Desconocido
|
| Enviado - 4/6/2004 |
| |
Este sería el código para crear la Base de datos:
Dim BDCrea As New DAO.DBEngine 'Se debe Agregar antes la referencia Microsoft DAO 3.6 Objet Library
Dim BDObtenida As DAO.Database
'Crea una base de Dtos en Versión 2000
Set BDObtenida = BDCrea.CreateDatabase("c:\DBAlumnos.mdb", dbLangGeneral)
'Crea una base de Dtos en Versión 97
Set BDObtenida = BDCrea.CreateDatabase("c:\DBAlumnos97.mdb", dbLangGeneral, dbVersion30)
BDObtenida.Close
Set DBObtenida = Nothing
Set BDCrea = Nothing
Y este para crear las tablas:
On Error Resume Next
'Se agrega el Componente "Microsoft ADO Data Control 6.0 (OLEDB)"
'Formas de Definir un campo en la creacion de una Tabla:
'Definiciones tipo Alfanumérico:
'<Nombre Campo> char(10) Null caracter de 10 posiciones
'<Nombre Campo> text(20) null texto de 20 posiciones
'Definición tipo Fecha y Hora:
'<Nombre Campo> datetime campo Fecha y Hora
'Definiciones tipo Numérico:
'<Nombre Campo> integer Tipo Entero
'<Nombre Campo> float Tipo float
'<Nombre Campo> double Tipo double
'<Nombre Campo> numeric Tipo Float, Double
'Definiciones Formato Especiales:
'<Nombre Campo> image Tipo Imagen
'<Nombre Campo> memo Tipo Memo, recibe hasta 254 caracteres.
Set CN1 = New ADODB.Connection
CN1.Open "DSN=SISNOTAS"
CN1.CommandTimeout = 300
Set RS1 = CN1.Execute("CREATE TABLE tblALUMNOS (CodFac char(2) Null,AhoIngAlu char(4) Null,PerIngAlu char(1) Null,ConsAlu char(3) Null,CedAlu char(12) Null, " & _
"Ape1Alu char(30) Null, Ape2Alu char(30) Null, NomAlu char(30) Null, Jornada char(1) Null, DirCas char(100) Null, DirOfc char(100) Null, " & _
"TelCas char(60) Null, TelOfi char(60) Null, Sexo char(1) Null, SemAlu char(2) Null, TipDoc char(2) Null, ExpCed char(80) Null, " & _
"FecNacAlu char(10) Null, TipPen char(1) Null)")
Set RS1 = CN1.Execute("CREATE TABLE tblFACULTADES (CodFac char(2) Null,NomFac char(60) Null)")
CN1.Close
Set CN1 = Nothing
Ojalá te sirva |
| |
|
Desconocido
|
| Enviado - 4/6/2004 |
| |
Quien quiera que seas. Yo te envié un código para crear bases de datos en Visual Basic. Aquí está por si no te llegó:
Dim BDCrea As New DAO.DBEngine 'Se debe Agregar antes la referencia Microsoft DAO 3.6 Objet Library
Dim BDObtenida As DAO.Database
'Crea una base de Dtos en Versión 2000
Set BDObtenida = BDCrea.CreateDatabase("c:\DBAlumnos.mdb", dbLangGeneral)
'Crea una base de Dtos en Versión 97
Set BDObtenida = BDCrea.CreateDatabase("c:\DBAlumnos97.mdb", dbLangGeneral, dbVersion30)
BDObtenida.Close
Set DBObtenida = Nothing
Set BDCrea = Nothing
Pero necesito algo a cambio. Si puedes averiguarme cómo imprimir un Informe que tengo hecho en Access desde Visual Basic 6.0
Si tienes la respuesta puedes enviarmela a [email protected]. Gracias. |
| |
|
Desconocido
|
| Enviado - 22/7/2004 |
| |
Para imprimir un logo solo tienes que colocar un control picture y luego poner estas lineas de codigo en un boton
printer.print picture1
printer.enddoc
|
| |
|
Desconocido
|
| Enviado - 20/9/2004 |
| |
Sub CREAR_CAMPO()
Dim cat As ADOX.Catalog
Set cat = New ADOX.Catalog
'NOMBRE DE LA BASE DE DATOS
NombreBase = App.Path & "\gestion.mdb"
' CREO EL STRING DE CONEXION A LA BD TENER EN CUENTA QUE SI USAS ACCESS 97 EN LUGAR DE 4.0 - DEBERIAS USAR 3.51
cat.ActiveConnection
= "Provider=Microsoft.Jet.OLEDB.4.0;" _
& "Data Source=" & NombreBase & ";"
'CREO EL CAMPO
cat.Tables("Fact_encabezado").Columns.Append "Anulada", adBoolean
Set cat = Nothing
End Sub
|
| |
|
Desconocido
|
| Enviado - 24/9/2004 |
| |
Respecto al codigo dado por desconocido hay una parte que no se lo que es.
dbLangGeneral = ¿Idioma? |
| |
|
Desconocido
|
| Enviado - 14/12/2004 |
| |
Para imprimir logo.bmp
printer.scalemode = vbcentimeters 'Unidad de medida
printer.paintpicture loadpicture("C:\Carpeta\Logo.bmp"), 1,1 ' Coordenadas
printer.enddoc 'Envia impreción
|
| |
|
|
|
