Crear Sistema en PDA o Pokect PC con Evb

[wolf_kof]

Este es una pequeña introducción para crear sistemas en PDA o Pokect PC con Evb

Primero para poder crear una base de datos para poder utilizarla!!!!!

Ya que Evb no tiene una conexion normal para *.mdb si no que ubiliza *.cdb utilizamos este codigo:

Código: [Seleccionar]

Option Explicit
Public conec As ADOCE.Connection
Public cn As ADOCE.Recordset
Public rs As ADOCE.Recordset
Private Sub Command1_Click()
Set conec = CreateObject("ADOCE.Connection.3.0")
Set rs = CreateObject("ADOCE.Recordset.3.0")
Dim str

rs.Open "CREATE DATABASE '\Storage Card\db.cdb'"
conec.Open "Provider=CEDB;" & "data source = \Storage Card\db.cdb"

'TABLA DE VENTAS
Set cn = CreateObject("adoce.recordset.3.0")
str = "CREATE TABLE venta (id text, codigot text, total text)"
cn.Open str, conec
Set cn = Nothing
'TABLA DE DETALLED DE VENTA
Set cn = CreateObject("adoce.recordset.3.0")
str = "CREATE TABLE deta (idd text, codigod text, nombred text, cantd text, puni text, total text)"
cn.Open str, conec
Set cn = Nothing
'TABLA PARA EL CORRELATIVO
Set cn = CreateObject("adoce.recordset.3.0")
str = "CREATE TABLE correla (nume text)"
cn.Open str, conec, adOpenDynamic, adLockOptimistic
Set cn = Nothing
'SE AGREGA UN REGISTRO CON VALOR 1 PARA CONTROL DE LOS PEDIDOS
Set cn = CreateObject("adoce.recordset.3.0")
cn.Open "correla", conec, adOpenDynamic, adLockOptimistic
cn.AddNew
cn.Fields(0) = 1
cn.Update
Set cn = Nothing

MsgBox "tablas creadas exitosamente"
End Sub

Private Sub Command2_Click()
Set conec = CreateObject("ADOCE.Connection.3.0")
Set rs = CreateObject("ADOCE.Recordset.3.0")
Dim str

rs.Open "CREATE DATABASE '\db.cdb'"
conec.Open "Provider=CEDB;" & "data source = \db.cdb"

'TABLA DE VENTAS
Set cn = CreateObject("adoce.recordset.3.0")
str = "CREATE TABLE venta (id text, codigot text, total text, nombret text)"
cn.Open str, conec
Set cn = Nothing
'TABLA DE DETALLED DE VENTA
Set cn = CreateObject("adoce.recordset.3.0")
str = "CREATE TABLE deta (idd text, codigod text, nombred text, cantd text, puni text, total text)"
cn.Open str, conec
Set cn = Nothing
'TABLA PARA EL CORRELATIVO
Set cn = CreateObject("adoce.recordset.3.0")
str = "CREATE TABLE correla (nume text)"
cn.Open str, conec, adOpenDynamic, adLockOptimistic
Set cn = Nothing
'SE AGREGA UN REGISTRO CON VALOR 1 PARA CONTROL DE LOS PEDIDOS
Set cn = CreateObject("adoce.recordset.3.0")
cn.Open "correla", conec, adOpenDynamic, adLockOptimistic
cn.AddNew
cn.Fields(0) = 1
cn.Update
Set cn = Nothing

MsgBox "tablas creadas exitosamente"
End Sub

Private Sub Form_OKClick()
    App.End
End Sub