hola muchachos lo que quiero es conectarme a una base de datos remotamente con sql server 200
Dim cn As New ADODB.Connection
Private Sub Form_Load()
On Error GoTo error
cn.Provider = "Sqloledb"
servidor = "192.168.1.25" 'mi ip
puerto = "1433" ' el puerto de sql server
cn.ConnectionString = "data source=" + servidor + "," + puerto + ";Initial catalog=NorthWind;user id=sa;password="
cn.CursorLocation = adUseClient
cn.Open
Exit Sub
error:
Debug.Print Err.Description
End Sub
pero siempre me sale un error aqui me estoy tratando de conectar conmigo mismo pero no me sale
aqui la conexion es de forma local
pero tambien creo q deberia funcionar de forma lan
y otra cosa saben algun codigo de como poder tomar forma un formulario osea de una imagen q el formulario obtenga su forma de la imagen y no que sea cuadrado si no q tenga la forma de la umagen
