A que se refiere?
Esta sección te permite ver todos los mensajes escritos por este usuario. Ten en cuenta que sólo puedes ver los mensajes escritos en zonas a las que tienes acceso en este momento.
Mostrar Mensajes MenúCita de: WHK en 29 Octubre 2009, 04:41 AMLa web es así:
puntaje.asp?UsuarioID=5623 and 1=1
puntaje.asp?UsuarioID=5623 and 1=2
puntaje.asp?UsuarioID=5623' and 1='1
puntaje.asp?UsuarioID=5623' and 1=1 --+
Private Sub INSERTAR(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim conexión As New SQLite.SQLiteConnection()
Dim Consulta As SQLite.SQLiteCommand
Dim linea As String = ""
conexión.ConnectionString = "Data Source=" & Database & ";"
conexión.Open()
Consulta = conexión.CreateCommand
For Mess As Integer = 1 To 2 '12
For Diaa As Integer = 1 To 2 '31
Dim Lectura As StreamReader = New StreamReader("C:\Users\Noel\Desktop\BrodaSoft\Visual Basic Proyectos\BACKUP's\VIDay\Version 7 Oficial\DataBase\" & Mess & "\" & Diaa & ".txt", System.Text.Encoding.Default, False)
While True
linea = Lectura.ReadLine
If linea = "" Then
Exit While
End If
linea = linea.Replace("'", "-")
linea = linea.Replace("\", "")
linea = linea.Replace("""", "-")
Consulta.CommandText = "INSERT INTO Efemerides (Fecha, Texto, Version) VALUES ('0000-" & Mess & "-" & Diaa & "', '" & linea & "', '1')"
Consulta.ExecuteNonQuery()
End While
Lectura.Dispose()
Lectura.Close()
Next
MsgBox("Fin de mes")
Next
Consulta.Dispose()
conexión.Close()
MsgBox("Listo")
End Sub
Public Class Form1
Private database As String = "C:\databaseprueba.db3"
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim SQLconnect As New SQLite.SQLiteConnection()
Dim SQLcommand As SQLite.SQLiteCommand
SQLconnect.ConnectionString = "Data Source=" & database & ";"
SQLconnect.Open()
SQLcommand = SQLconnect.CreateCommand
'Insert Record into Foo
SQLcommand.CommandText = "INSERT INTO Prueba (Fecha) VALUES ('1991-02-22')"
SQLcommand.ExecuteNonQuery()
SQLcommand.Dispose()
SQLconnect.Close()
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Dim SQLconnect2 As New SQLite.SQLiteConnection()
Dim SQLcommand2 As SQLite.SQLiteCommand
SQLconnect2.ConnectionString = "Data Source=" & database & ";"
SQLconnect2.Open()
SQLcommand2 = SQLconnect2.CreateCommand
SQLcommand2.CommandText = "SELECT * FROM Prueba"
Dim SQLreader2 As SQLite.SQLiteDataReader = SQLcommand2.ExecuteReader()
While SQLreader2.Read()
MsgBox(SQLreader2(0))
End While
SQLcommand2.Dispose()
SQLconnect2.Close()
End Sub
End Class
Cita de: seba123neo en 27 Octubre 2009, 23:51 PMCita de: Skeletron en 27 Octubre 2009, 19:28 PM
Porque cuando le pongo formato DATE, y hago un select y me devuelve tambien la HORA.. (supongamos que inserte: 21-01-1990, me devuelve 21-01-1990 00:00:00)
Y no quiero que sea así...
eso es obvio, pero en cualquier motor, ya sea SQL Server o SQL Lite podes formatear en el select para traer solo la fecha...o lo que quieras, solo es cuestion de investigar un poco, ¿no hay?...en 10 segundos encontre...
Date And Time Functions