saber donde estan las bases de datos mysql en ubuntu

/ejecutas esto en un shell
$ ps aux | grep mysql
//te saldra algo asi, y ves donde dice --datadir para ver donde se guarda
16504  0.0  0.1  4668 1156 pts/0    S    09:31   0:00 /bin/sh /usr/bin/mysqld_safe --datadir=/var/lib/mysql --pid-file=/var/lib/mysql/woodstock.pid

te dice
y ahi

Public Sub FillDs(ByVal strSQL As String, ByRef dsData As DataSet)

Public Sub FillDs(ByVal strSQL As String, ByRef dsData As DataSet)
Dim conData As New SqlClient.SqlConnection(strConnectionString)
Try
Dim SqlComm As New SqlClient.SqlCommand(strSQL, conData)
SqlComm.CommandType = CommandType.Text
Dim sqlAdp As New SqlClient.SqlDataAdapter(SqlComm)
If dsData Is Nothing Then
dsData = New DataSet
Else
dsData.Tables.Clear()
End If
sqlAdp.Fill(dsData, "Tabla")
sqlAdp.Dispose()
SqlComm.Dispose()
Catch ex As Exception
Console.Write(ex.ToString)
End Try
If IsNothing(conData) = False AndAlso (conData.State <> ConnectionState.Closed OrElse conData.State <> ConnectionState.Broken) Then
conData.Close()
End If
End Sub

Public Function ExecuteDLM(ByVal strSQL As String) As Long

Public Function ExecuteDLM(ByVal strSQL As String) As Long

Dim lngRecsAfectados As Long
'Dim conDatos As New OracleClient.OracleConnection(strConnectionString)
Dim conDatos As New SqlClient.SqlConnection(strConnectionString)
Try

conDatos.Open()
'Dim scmDatos As New OracleClient.OracleCommand
Dim scmDatos As New SqlClient.SqlCommand
scmDatos.Connection = conDatos
scmDatos.CommandText = strSQL
lngRecsAfectados += scmDatos.ExecuteNonQuery

Catch ex As Exception
Throw New Exception(ex.Message)
Finally
conDatos.Close()
End Try

Return lngRecsAfectados
End Function

Public Function GetDataRow(ByVal strSql As String) As DataRow

Public Function GetDataRow(ByVal strSql As String) As DataRow

'Dim daSelect As New OracleClient.OracleDataAdapter(strSql, strConnectionString)
Dim daSelect As New SqlClient.SqlDataAdapter(strSql, strConnectionString)
Dim dsDatos As New DataSet
daSelect.Fill(dsDatos, "Tabla")
daSelect.Dispose()

If dsDatos.Tables.Count > 0 Then
If dsDatos.Tables(0).Rows.Count > 0 Then
Return dsDatos.Tables(0).Rows(0)
Else
Return Nothing
End If
Else
Return Nothing
End If

End Function

Public Function GetDataTable(ByVal strSql As String) As DataTable

Public Function GetDataTable(ByVal strSql As String) As DataTable

'Dim daSelect As New OracleClient.OracleDataAdapter(strSql, strConnectionString)
Dim daSelect As New SqlClient.SqlDataAdapter(strSql, strConnectionString)
Dim dsDatos As New DataSet
daSelect.Fill(dsDatos, "Tabla")
daSelect.Dispose()

If dsDatos.Tables.Count > 0 Then
Return dsDatos.Tables(0)
Else
Return Nothing
End If

End Function

Public Function GetScalar(ByVal strSql As String) As String

Public Function GetScalar(ByVal strSql As String) As String

'Dim conDatos As New OracleClient.OracleConnection(strConnectionString)
Dim conDatos As New SqlClient.SqlConnection(strConnectionString)
Dim strResultado As String
Try
conDatos.Open()
'Dim scmDatos As New OracleClient.OracleCommand(strSql, conDatos)
Dim scmDatos As New SqlClient.SqlCommand(strSql, conDatos)

strResultado = "" & IIf(IsDBNull(scmDatos.ExecuteScalar()), "", scmDatos.ExecuteScalar())

Catch ex As Exception
Throw New Exception(ex.Message)
Finally
conDatos.Close()
End Try

Return strResultado

End Function

Public Function GetSelect(ByVal strSql As String, Optional ByVal strTableName As String = "Tabla") As DataSet

Public Function GetSelect(ByVal strSql As String, Optional ByVal strTableName As String = "Tabla") As DataSet

'Dim daSelect As New OracleClient.OracleDataAdapter(strSql, strConnectionString)
Dim daSelect As New SqlClient.SqlDataAdapter(strSql, strConnectionString)
Dim dsDatos As New DataSet

Try
daSelect.Fill(dsDatos, strTableName)
daSelect.Dispose()
Return dsDatos
Catch ex As Exception
Throw New Exception(strConnectionString & " " & ex.Message & " " & strSql)
End Try
End Function

Public Function ExecuteDMLVolTran(ByVal alSQLs As ArrayList) As Long

Public Function ExecuteDMLVolTran(ByVal alSQLs As ArrayList) As Long

Me.DMLVolError = ""
Dim lngRecsAfectados As Long
'Dim conDatos As New OracleClient.OracleConnection(strConnectionString)
Dim conDatos As New SqlClient.SqlConnection(strConnectionString)

'Dim trnTrans As OracleTransaction
Dim trnTrans As SqlTransaction
Dim strSQL As String
Dim intSql As Integer

trnTrans = Nothing
Try
conDatos.Open()
trnTrans = conDatos.BeginTransaction
'Dim scmDatos As New OracleClient.OracleCommand
Dim scmDatos As New SqlClient.SqlCommand
scmDatos.Connection = conDatos
scmDatos.Transaction = trnTrans

For intSql = 0 To alSQLs.Count - 1

strSQL = alSQLs(intSql)
scmDatos.CommandText = strSQL

Try
lngRecsAfectados += scmDatos.ExecuteNonQuery
Catch exsingle As Exception
'Set Error Message
Me.DMLVolError += exsingle.Message & ", "
Throw New Exception(exsingle.Message)
End Try

Next

trnTrans.Commit()

Catch ex As Exception
If Not trnTrans Is Nothing Then
trnTrans.Rollback()
End If
lngRecsAfectados = 0
Finally
conDatos.Close()
End Try

Return lngRecsAfectados

End Function

Public Function ExecuteDLMVol(ByVal alSQLs As ArrayList) As Long

Public Function ExecuteDLMVol(ByVal alSQLs As ArrayList) As Long

Me.DMLVolError = ""
Dim lngRecsAfectados As Long
'Dim conDatos As New OracleClient.OracleConnection(strConnectionString)
Dim conDatos As New SqlClient.SqlConnection(strConnectionString)
Dim strSQL As String
Dim intSql As Integer
Try
conDatos.Open()
'Dim scmDatos As New OracleClient.OracleCommand
Dim scmDatos As New SqlClient.SqlCommand
scmDatos.Connection = conDatos

For intSql = 0 To alSQLs.Count - 1

strSQL = alSQLs(intSql)
scmDatos.CommandText = strSQL

Try
lngRecsAfectados += scmDatos.ExecuteNonQuery
Me.DMLVolError += "OK, "
Catch exsingle As Exception
'Continue with next
Me.DMLVolError += exsingle.Message & ", "
End Try

Next

Catch ex As Exception
'Throw New Exception(ex.Message)
Finally
conDatos.Close()
End Try

Return lngRecsAfectados

End Function

Public Function Delete(ByVal strSQL As String) As Long

Public Function Delete(ByVal strSQL As String) As Long

Dim lngRecsAfectados As Long
'Dim conDatos As New OracleClient.OracleConnection(strConnectionString)
Dim conDatos As New SqlClient.SqlConnection(strConnectionString)
Try
conDatos.Open()

'Dim scmDatos As New OracleClient.OracleCommand(strSQL, conDatos)
Dim scmDatos As New SqlClient.SqlCommand(strSQL, conDatos)
lngRecsAfectados = scmDatos.ExecuteNonQuery

Catch ex As Exception
lngRecsAfectados = 0
Me.DMLVolError = ex.Message
'Throw New Exception(ex.Message)
Finally
conDatos.Close()
End Try

Return lngRecsAfectados

End Function

Public Function UpdateDataSet(ByVal strSQL As String, ByVal dtDatos As DataTable) As Boolean

Public Function UpdateDataSet(ByVal strSQL As String, ByVal dtDatos As DataTable) As Boolean

'Dim daUpdate As New OracleClient.OracleDataAdapter
Dim daUpdate As New SqlClient.SqlDataAdapter

'Dim cbUpdate As OracleClient.OracleCommandBuilder
Dim cbUpdate As SqlClient.SqlCommandBuilder
'Dim cnDataBase As New OracleClient.OracleConnection(strConnectionString)
Dim cnDataBase As New SqlClient.SqlConnection(strConnectionString)

cnDataBase.Open()
'cbUpdate = New OracleClient.OracleCommandBuilder(daUpdate)
cbUpdate = New SqlClient.SqlCommandBuilder(daUpdate)
'daUpdate.SelectCommand = New OracleClient.OracleCommand(strSQL, cnDataBase)
daUpdate.SelectCommand = New SqlClient.SqlCommand(strSQL, cnDataBase)
Try
daUpdate.Update(dtDatos)
Catch ex As Exception
Throw New Exception(ex.Message)
Finally
daUpdate.Dispose()
cnDataBase.Close()
End Try

Return True

End Function

Public Function Update(ByVal strSQL As String) As Long

Public Function Update(ByVal strSQL As String) As Long

Dim lngRecsAfectados As Long
'Dim conDatos As New OracleClient.OracleConnection(strConnectionString)
Dim conDatos As New SqlClient.SqlConnection(strConnectionString)
Try
conDatos.Open()

'Dim scmDatos As New OracleClient.OracleCommand(strSQL, conDatos)
Dim scmDatos As New SqlClient.SqlCommand(strSQL, conDatos)

lngRecsAfectados = scmDatos.ExecuteNonQuery

Catch ex As Exception
lngRecsAfectados = 0
Me.DMLVolError = ex.Message
'Throw New Exception(ex.Message)
Finally
conDatos.Close()
End Try

Return lngRecsAfectados

End Function

Public Function Insert(ByVal strSql As String) As Long

Public Function Insert(ByVal strSql As String) As Long

Dim lngRecsAfectados As Long
'Dim conDatos As New OracleClient.OracleConnection(strConnectionString)
Dim conDatos As New SqlClient.SqlConnection(strConnectionString)
Try
conDatos.Open()

'Dim scmDatos As New OracleClient.OracleCommand(strSql, conDatos)
Dim scmDatos As New SqlClient.SqlCommand(strSql, conDatos)

lngRecsAfectados = scmDatos.ExecuteNonQuery

Catch ex As DataException
lngRecsAfectados = 0
Me.DMLVolError = ex.Message
Catch ex As Exception
lngRecsAfectados = 0
If ex.Message.Contains("Violation of PRIMARY KEY") Then
Me.DMLVolError = "*UNIQUE*"
Else
Me.DMLVolError = ex.Message
End If
Finally
conDatos.Close()
End Try

Return lngRecsAfectados

End Function

Property DMLVolError() As String

Property DMLVolError() As String
Get
Return strVolError
End Get
Set(ByVal Value As String)
strVolError = Value
End Set
End Property

UpdatePanel ajax y Javascript

para poder ejecutar Javascript dentro de un update panel de Ajax, hay que atraparlo, de lo contrario, le pela cualquier llamada a una funcion javascript dentro de este control de ajax,

//Aqui se manada a llamar cada una de las funciones, una cuando inicia el Request y otra cuando //termina
Sys.WebForms.PageRequestManager.getInstance().add_beginRequest(beginRequestHandle);
Sys.WebForms.PageRequestManager.getInstance().add_endRequest(endRequestHandle);

function beginRequestHandle(sender, Args) {
alert("Inicio del Request handle");
FuncionJavaScript();
}
function endRequestHandle(sender, Args){
alert("fin del Request handle");
FuncionJavaScript();

}


orale ojala les sirva

Algo basico para Transac SQL
adicion de una llave primaria a una tabla

ALTER TABLE ADD CONSTRAINT <primary_key_constraint_name> PRIMARY KEY () USING INDEX

Para tronarse la llave:

alter table drop

El dinero viene a Mi FACIL y RAPIDAMENTE!!!

para las funciones con Strings de SQL server, aqui esta el link, aqui podemos verlas, entre ellas esta, por ejemplo, el equivalente a instr , ltrim, etc



http://msdn.microsoft.com/en-us/library/aa258891.aspx

Cursor en Triggers Sql Server

estaba haciendo unos triggers pero los hice para que actuaran cuando se inserta registro por registro, pero cuando inserte en la tabla todos los registros de otra PUM!
Tronitos!!!!
(Insert into TABLA1 (CAMPO1, CAMPO2) select CAmpoX,CampoY from TABLA2)

tons tuve que ponerle cursor al trigger, ahi ta el codigo... Gracias al Alejandro que me hecho la manita...

Declare @CAMPO1 varchar(1), @CAMPO2 varchar(1)
Declare Cursor_Temporal cursor
for select isnull(CAMPO1,'') , isnull(CAMPO2,'') from deleted

OPEN Cursor_Temporal
FETCH NEXT FROM Cursor_Temporal INTO @CAMPO1,@CAMPOR2
WHILE @@FETCH_STATUS<> - 1
BEGIN
---aqui deberia ir todo lo que se quiere hacer
FETCH NEXT FROM Cursor_Temporal INTO @CAMPO1,@CAMPO2
END
CLOSE Cursor_Temporal
DEALLOCATE Cursor_Temporal



Espero les sirva

al rato pue'

Repeater con Columnas Atumaticas desde la base de datos

estoy haciendo pruebas con un Repeater y generar columnas automaticamente segun una base de datos....

hay les cuento

XP en una Toshiba SAtellite A215-S7413 (originalmente solo con vista)

A la oficina esta viniendo una persona llamada Otto a darnos unas inducciones para trabajar con RUBY+RAILS, y platicando con el me dio unos links para bajar los drivers que le hicieran a mi maquina, vista es una BASURA!! despues del Win Milleniun, este vista es lo peor que me ha pasado (desde el punto de vista de desarrollo)
lados negativos:

1. El Visual Studio es una tortuga cansada, hala mucha memoria y por ende el desarrollo HTML es una tortura
2. ESTO es IMPERDONABLE, no soporta el protocolo IPX, por eso no se puede jugar en red Quake, StarCraft, etc... basura! basura! basura.
3. a cada rato te dice que lo que vas a instalar no es compatible con vista,....
4. el software desarrollado para vista, corre muy bien, pero el software antigo, tiene muchos problemas de incompatibilidad

estos son algunos delos puntos por los que ODIO VISTA! talvez en otra vida....

pues le puse XP a mi maquina, y sinceramente...ES UNA MARAVILLA!!!! con UBUNTU es aun mejor, pero como somos esclavos comerciales de Bill Gates, pues.... hay que tener XP.

si alguien quiere los drivers que instale, que logicamente no son los autorizados por toshiba, y que no son directamente para esa maquina, pero funcionan, escribid hijos mios, y yo os dare los drivers (pero me dan un Server FTP para subirlos porque por correo......)

va pue, al rato!

the project type is not supported by this installation Visual Studio 2008

este clavo me dio porque no instale completo el visual studio, hay que instalar todas las opciones de WEB,.... segun yo estaban implicitas en la instalacion basica, pero no.

despues de eso tuve clavos con unas referencias, estas no aparecian disponibles en el listado, entonces hice lo mas gacho.... entrar y salir del carro (desinstalar e instalar nuevamente el VS2008)