🚀 go-pugleaf

This is a multi-part message in MIME format.

------=_NextPart_000_001E_01C34A31.357E04D0
Content-Type: text/plain;
	charset="iso-8859-1"
Content-Transfer-Encoding: quoted-printable

Salve a tutti,

    ho un piccolo problema nel recuperare la struttura di una tabella in =
specifico mi interessa recuperare se un campo =E8 null o meno su SQL =
SERVER e non su Access. Questo =E8 il mio codice ma non so cosa non =
funziona. Dopo aver impostato la connessione appena arriva alla riga per =
dirmi se il campo =E8 un campo dove viene accettato anche il valore =
NULL, si blocca!

Centra il modo di apertura del database?


Code:

Private function Required()
    Dim StrConnection As String
    Dim Cn As ADODB.Connection
    Dim Tbl As New ADOX.Table
    Dim Col As ADOX.Column

    UserID =3D "sa"
    Password =3D "11041977"
    DatabaseName =3D "data"
    ServerName =3D "ShineServer"

    Set Cn =3D New ADODB.Connection
    With Cn
       If Cn.State =3D adStateOpen Then
          Cn.Close
       End If
      =20
       Select Case connectiontype
            Case "Microsoft Access 2000"
                StrConnection =3D =
"Provider=3DMicrosoft.Jet.OLEDB.4.0;Data Source=3D" & ConnectString & =
";Persist Security Info=3DFalse"
            Case "Microsoft SQL Server 2003"
                StrConnection =3D "Provider=3DSQLOLEDB.1;Persist =
Security Info=3DFalse;User ID=3D" & UserID & ";Password=3D" & Password & =
";Initial Catalog=3D" & DatabaseName & ";Data Source=3D" & ServerName
       End Select
       .ConnectionString =3D StrConnection
       .Open
       DatabaseType =3D connectiontype
       fnConnectionString =3D True
       Set Conn =3D Cn
    End With
   =20
   =20
    Set Tbl =3D Cn.Tables(StrTable)
    Set Col =3D Tbl.Columns(strField)

    RequiredField =3D Col.Properties("Nullable").Value  ---> ERRORE:=20

End function
------=_NextPart_000_001E_01C34A31.357E04D0
Content-Type: text/html;
	charset="iso-8859-1"
Content-Transfer-Encoding: quoted-printable

<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML><HEAD>
<META http-equiv=3DContent-Type content=3D"text/html; =
charset=3Diso-8859-1">
<META content=3D"MSHTML 6.00.2800.1106" name=3DGENERATOR>
<STYLE></STYLE>
</HEAD>
<BODY>
<DIV><FONT face=3DArial size=3D2>Salve a tutti,</FONT></DIV>
<DIV><FONT face=3DArial size=3D2></FONT>&nbsp;</DIV>
<DIV><FONT face=3DArial size=3D2>&nbsp;&nbsp;&nbsp; ho un piccolo =
problema nel=20
recuperare la struttura di una tabella in specifico mi interessa =
recuperare se=20
un campo =E8 null o meno su SQL SERVER e non su Access. Questo =E8 il =
mio codice ma=20
non so cosa non funziona. Dopo aver impostato la connessione appena =
arriva alla=20
riga per dirmi se il campo =E8 un campo dove viene accettato anche il =
valore NULL,=20
si blocca!</FONT></DIV>
<DIV><FONT face=3DArial size=3D2></FONT>&nbsp;</DIV>
<DIV><FONT face=3DArial size=3D2>Centra il modo di apertura del=20
database?</FONT></DIV>
<DIV><FONT face=3DArial size=3D2></FONT>&nbsp;</DIV>
<DIV><FONT face=3DArial size=3D2></FONT>&nbsp;</DIV>
<DIV>
<DIV><SPAN class=3D218580813-14072003><FONT face=3DArial=20
size=3D2><STRONG>Code:</STRONG></FONT></SPAN></DIV>
<DIV><SPAN class=3D218580813-14072003><STRONG><FONT face=3DArial=20
size=3D2></FONT></STRONG></SPAN>&nbsp;</DIV>
<DIV><FONT face=3DTahoma color=3D#0000ff size=3D2>Private function =
Required()<BR><FONT=20
color=3D#000000>&nbsp;&nbsp;&nbsp; Dim StrConnection As=20
String<BR>&nbsp;&nbsp;&nbsp; Dim Cn As =
ADODB.Connection<BR>&nbsp;&nbsp;&nbsp;=20
Dim Tbl As New ADOX.Table<BR>&nbsp;&nbsp;&nbsp; Dim Col As=20
ADOX.Column<BR></FONT></FONT><FONT face=3DTahoma size=3D2></FONT></DIV>
<DIV><FONT face=3DTahoma size=3D2>&nbsp;&nbsp;&nbsp; UserID&nbsp;=3D=20
"sa"</FONT></DIV></DIV>
<DIV>
<DIV><FONT face=3DTahoma size=3D2>&nbsp;&nbsp;&nbsp; Password =3D=20
"11041977"</FONT></DIV>
<DIV><FONT face=3DTahoma size=3D2>&nbsp;&nbsp;&nbsp; DatabaseName =3D=20
"data"</FONT></DIV>
<DIV><FONT face=3DTahoma size=3D2>&nbsp;&nbsp;&nbsp; ServerName =3D=20
"ShineServer"</FONT></DIV>
<DIV><BR><FONT face=3DTahoma size=3D2>&nbsp;&nbsp;&nbsp; Set Cn =3D New=20
ADODB.Connection<BR>&nbsp;&nbsp;&nbsp; With=20
Cn<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; If Cn.State =3D adStateOpen=20
Then<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;=20
Cn.Close<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; End=20
If<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;=20
<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Select Case=20
connectiontype<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&=
nbsp;&nbsp;=20
Case "Microsoft Access=20
2000"<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbs=
p;&nbsp;&nbsp;&nbsp;&nbsp;=20
StrConnection =3D "Provider=3DMicrosoft.Jet.OLEDB.4.0;Data Source=3D" =
&amp;=20
ConnectString &amp; ";Persist Security=20
Info=3DFalse"<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&n=
bsp;&nbsp;=20
Case "Microsoft SQL Server=20
2003"<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbs=
p;&nbsp;&nbsp;&nbsp;&nbsp;=20
StrConnection =3D "<STRONG>Provider=3DSQLOLEDB.1</STRONG>;Persist =
Security=20
Info=3DFalse;User ID=3D" &amp; UserID &amp; ";Password=3D" &amp; =
Password &amp;=20
";Initial Catalog=3D" &amp; DatabaseName &amp;&nbsp;";Data Source=3D" =
&amp;=20
ServerName<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; End=20
Select<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; .ConnectionString =3D=20
StrConnection<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;=20
.Open<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; DatabaseType =3D=20
connectiontype<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; =
fnConnectionString =3D=20
True<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Set Conn =3D =
Cn<BR>&nbsp;&nbsp;&nbsp;=20
End With<BR>&nbsp;&nbsp;&nbsp; <BR>&nbsp;&nbsp;&nbsp; =
<BR>&nbsp;&nbsp;&nbsp; Set=20
Tbl =3D Cn.Tables(StrTable)<BR>&nbsp;&nbsp;&nbsp; Set Col =3D=20
Tbl.Columns(strField)</FONT></DIV>
<DIV><FONT face=3DTahoma size=3D2></FONT>&nbsp;</DIV>
<DIV><FONT face=3DTahoma size=3D2>&nbsp;&nbsp;&nbsp;<STRONG> =
RequiredField =3D=20
Col.Properties("Nullable").Value&nbsp; ---&gt; ERRORE: =
</STRONG></FONT></DIV>
<DIV><FONT face=3DTahoma color=3D#0000ff size=3D2></FONT>&nbsp;</DIV>
<DIV><FONT face=3DTahoma color=3D#0000ff size=3D2>End=20
function</FONT></DIV></DIV></BODY></HTML>

------=_NextPart_000_001E_01C34A31.357E04D0--