SoloCodigo

como puedo eliminar las restrincciones ah? ya sea de check,defualt, todas las restrincciones y como puedo poner dos foreign key en una tabla pero en el analizar de consultas elimar la restrincciones tambien en el analizar de consultas
y como elimino una relacion en el analizador de consultas ejemplos porfa

PORDFA ELIMINE EL OCX DE MI PX PORDA ELAGUIEN ME PUEDE ENVIAR EL OCX O COPIARLO Y PEGARLO AQUI EN ESTE FORO EL OCX ES:
 C:\WINDOWS\system32\Flash9b.OCX

"Flash9b.ocx"

salto de linea osea como un tenter ejemplo
cod001
salto de linea
cod002

algo asi

si es asi se utiliza el chr(10)
cod001 & chr(10) & cod002

pruebalo espero q te sirva  

mira tu codigo probe en mi compu y me funciona esto yo e modificado solo esto
 Dim conn As New ADODB.Connection,creo q te falto poner el cnn.open
********************************
Dim conn As New ADODB.Connection
 Private Sub Form_Load()

   On Error GoTo errorcnn

   With conn
       '.ConnectionString = "DRIVER={MySQL ODBC 3.51 Driver};SERVER=server;Database=model;USER=sa;PWD="
       .ConnectionString = "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;pwd=;Initial Catalog=model;Data Source=server"
       '.ConnectionString = "PROVIDER=MSDASQL;DNS=LocalServer;UID=sa;pwd=;DATABASE=model"
       .ConnectionString = "Driver={SQL Server};Server=server;Database=model;Uid=sa;Pwd="
        .Open
   End With
   'edocnn = 1
   
errorcnn:
   MsgBox Err.Description, vbInformation, "Error Numero" & Err.Number
   Exit Sub

End Sub

esos dos me funcionan pero los demas nuuuu q es el dns me puedes explicar y para q me sirve y todo eso si me enseñaron y se como crear uno pero no entiendo opara q me pueda servir o es una opcion o qqqq
espero q te sirva

como puedo selecionar varias grillas y q esa fila se pinte por q lo normal es q cuando esta lleno de datos tu le das clik a una fila esa fila se pinta pero cuando quieres pintar toda la grilla por ejemplo le das clik ala grilla1 y sin soltar el mouse arrastras hasta la grilla5 esa parte desde grilla1 y grilla 5 debe estar pintado como hago eso ?
lo q quiero hacer es para q en el datagrid sirva para selecionar los productos y los q estan pintados se registra ala base de datos y los q no se eliminan :S la pregunta es como seleciono mas de una grilla plzzz ayudaaa

COMO PUEDO DETECTAR LAS PULSACIONES DE TECLADO YO ESTOY HACIENDO CON DOS FORM UNO Q ESTA VISIBLE Y EL OTRO FORM2 Q TIENE UN TEXBOX Y Q EN ESE TEXBOX ESTÈ LO Q EL FORM1 DETECTO DE TECLA,PERO EL PROBLEMA ESQUE CYUANDO EL FORM1 ESTA VISIBLE NORMAL ME TRABAJA,PERO CUANDO EL FORM1 ESTA INVISIBLE NO DETECTA NADA, yo quiero q el sistema este visible y cuando el usuario escriba algo por ejemplo escriba en el msn o ponga una rruta al explorador o q tecle de casualidad ala nada algop por el estilo ps,y q lo guarde ah una variablñe o al mismo q se muestre al texbox del form2,pero lo q mas quieor es detectar el la pulsacion cuando el usuario escribe al chat o explorer o algo por el estilo ps,como puedo hacer si no me entienden agregenme  k_arlytos@hotmail.com

creo creo creo q es algo asi  
debes de declarar la variable en declaracion general
dim varcg as integer
prueba esto en visual basic

declaracion general
'Dim x As Integer  eso es declaracion general

Private Sub Command1_Click()
Static x As Integer 'tambien  lo pones en el boton pero con static
x = x + 1
Text1 = x
End Sub

como minimizo una ventana q no tenga borde osea aqui tengo un codigo pero no me lo minimiza ala barra de tareas simplemente desaparece
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" ( _
    ByVal lpClassName As String, _
    ByVal lpWindowName As String) As Long

Private Declare Function ShowWindow Lib "user32" ( _
    ByVal hwnd As Long, _
    ByVal nCmdShow As Long) As Long

Const SW_HIDE = 0
Const SW_NORMAL = 1

Dim Handle As Long

Private Sub Command1_Click()
    Handle = FindWindow(vbNullString, Me.Caption)
    Call ShowWindow(Handle, SW_HIDE)
End Sub


Private Sub Command2_Click()
     Handle = FindWindow(vbNullString, me.caption)
    Call ShowWindow(Handle, SW_NORMAL)

End Sub


COMO HAGO PARA ENVIARLO ALA BARRA DE TAREAS NO PUED AYUDEN PLZZZZ