|
Mostrar Mensajes
|
Páginas: [1]
|
5
|
Programación / .NET (C#, VB.NET, ASP) / Re: ayuda con un cambio de base de datos
|
en: 23 Enero 2012, 19:01 pm
|
mira yo lo hago asi xD, amm bueno este codigo sirver para crear la bd, en una ruta y despues conectarte a ella y crear una tabla dentro del mismo bd, amm nada mas estudiate el cod alli esta la cadena de conexion hacia el accses:D
Imports ADOX Imports System.Data.OleDb Public Class Form1 Dim dt As DataTable Dim cmd As OleDb.OleDbCommand Public DataSet1 As DataSet Dim el_patch As String = "C:\bd" Dim DatabaseFullPath As String = "C:\bd\hola.mdb" Dim sCreateString As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & DatabaseFullPath Dim bd As New OleDbConnection(sCreateString) Dim objcreatablas As creatabla = New creatabla Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load If Dir(el_patch, vbDirectory) = vbNullString Then 'Crea la carpeta Call MkDir(el_patch) End If
Dim bAns As Boolean If el_patch = vbNullString Then Exit Sub End If If Dir("C:\bd\hola.mdb", vbDirectory) = vbNullString Then Dim cat As New ADOX.Catalog() Try cat.Create(sCreateString) bAns = True
bd.ConnectionString = sCreateString bd.Open()
objcreatablas.creatabla("CREATE TABLE customer" & _ "(Name char(50)," & _ "direccion char(50)," & _ "telefono char(50))")
Catch Excep As System.Runtime.InteropServices.COMException bAns = False
Finally cat = Nothing End Try
End If End Sub 'DEMO ' If CreateAccessDatabase("F:\test.mdb") = True Then ' MsgBox("Database Created") ' Else ' MsgBox("Database Creation Failed") ' End If
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click objcreatablas.creatabla(String.Format("insert into customer values('{0}','{1}','{2}')", TextBox1.Text, TextBox2.Text, TextBox3.Text)) End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click bd.Open()
Dim da As New OleDbDataAdapter("SELECT * FROM customer", bd) Dim ds As New DataSet da.Fill(ds) data.DataSource = ds.Tables(0) bd.Close()
End Sub End Class
|
|
|
8
|
Programación / .NET (C#, VB.NET, ASP) / ventanilla unica SAT Mexico Servicio WEB, PROXY u.u
|
en: 23 Enero 2012, 18:38 pm
|
hola a a todos soi nuevo en este foro , y kisiera hacerles una pregunta, alguien ha hecho ya la conexion con el SAT de mex, para lo de la ventanilla unica?? pero con servidor proxy, yo tengo ya como pero el codigo me arroja un erro :S y me dice que no puedo conectame a la pagina :S este es el error :S An unsecured or incorrectly secured fault was received from the other party. See the inner FaultException for the fault code and detail. y aqui mi codigo por si alguien ya lo hizo o empezara pos tambien que les ayude. Imports ServiceReference1 Imports ServiceReference2 Partial Class _Default Inherits System.Web.UI.Page Dim cliente As New ServiceReference1.ReceptorClient Dim comprobantes() As ComprobanteValorElectronico Dim c As New ComprobanteValorElectronico Dim acuse As New Acuse Protected Sub ASPxButton1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles ASPxButton1.Click cliente.ClientCredentials.UserName.UserName = "CXX1111169M5" cliente.ClientCredentials.UserName.Password = "wUDoo7g0ffPmRB+mfyfiMEbMxRTXjXrOb1Jv6IKvxChLZaFyBf/pjMQLw5lk0YsP"
c.tipoIdentificador = 1 c.rfcConsulta = "KAAAR6606" c.correoElectronico = "correo@gmail.com" ReDim comprobantes(0) comprobantes(0) = c
Try acuse = cliente.RecibirCove(comprobantes) Catch ex As Exception MsgBox(ex.ToString) End Try End Sub End Class
esta hecho en asp.net con vb, espero y puedan ayudarme, yo pienso que el error es por el proxy pero = y este equivocado.. saludos
|
|
|
|
|
|
|