In[]:=
<<DatabaseLink`
In[]:=
conn=Quiet[OpenSQLConnection[JDBC["com.mysql.jdbc.Driver","jdbc:mysql://localhost:8889"],"Catalog"->"Humboldtland","Username"->"root","Password"->"root"]]​​Geography=SQLExecute[conn,"Select * FROM Geography WHERE Continent='Hesperia'"];​​Neighbors=SQLExecute[conn,"Select * FROM PointNeighbors"];​​Vars=SQLExecute[conn,"SHOW columns FROM Geography;"][[1;;,1]];​​Vars=#[[1]]#[[2]]&/@Transpose[{Vars,Table[x,{x,Length[Vars]}]}];​​CloseSQLConnection[conn];
Out[]=
$Failed
Part
:Part specification SQLExecute[$Failed,SHOW columns FROM Geography;]〚1;;All,1〛 is longer than depth of object.
Transpose
:The first two levels of {SQLExecute[$Failed,SHOW columns FROM Geography;]〚1;;All,1〛,{1,2,3}} cannot be transposed.
In[]:=
JDBC["com.mysql.jdbc.Driver","jdbc:mysql:loadbalance://localhost:8889"]
Out[]=
JDBC[com.mysql.jdbc.Driver,jdbc:mysql:loadbalance://localhost:8889]
In[]:=
OpenSQLConnection[]
Out[]=
$Aborted
In[]:=
OpenSQLConnection[JDBC["com.mysql.jdbc.Driver","jdbc:mysql://localhost:8889"],"Catalog"->"Humboldtland","Username"->"root","Password"->"root"]
KeyExistsQ
:The argument Association[Flatten[JDBCDrivers[]/.JDBCDriver[NameDatabaseLink`SQL`Private`name_,DriverDatabaseLink`SQL`Private`driver_,ProtocolDatabaseLink`SQL`Private`protocol_,___]{DatabaseLink`SQL`Private`nameAssociation[Rule[2],Rule[2]]}]] is not a valid Association or a list of rules.
JDBC
::error
:Communications link failure​The last packet successfully received from the server was 1 milliseconds ago. The last packet sent successfully to the server was 1 milliseconds ago.
​
Out[]=
$Failed
In[]:=
conn1=OpenSQLConnection["demo"]
KeyExistsQ
:The argument Association[Flatten[JDBCDrivers[]/.JDBCDriver[NameDatabaseLink`SQL`Private`name_,DriverDatabaseLink`SQL`Private`driver_,ProtocolDatabaseLink`SQL`Private`protocol_,___]{DatabaseLink`SQL`Private`nameAssociation[Rule[2],Rule[2]]}]] is not a valid Association or a list of rules.
JDBC
::classnotfound
:HSQL(Standalone)
​
Out[]=
$Failed
In[]:=
ElevationMap={PointSize[0.035],ColorData["GreenBrownTerrain"][(#[[7]]+500)/Max[Geography[[1;;,"Elevation"/.Vars]]]],Point[#[[{"Longitude","Latitude","Elevation"}/.Vars]]]}&/@Geography;
In[]:=
Graphics3D[ElevationMap,BoxRatios{1,1,.2},BoxedTrue,AxesTrue]
Out[]=
In[]:=
Show[ListPlot3D[Geography[[1;;,{2,3,7}]],BoxRatios{1,1,.15},PlotRange->All,ColorFunctionFunction[{x,y,z},ColorData["GreenBrownTerrain"][z^0.7]],MeshFunctions{#3&},MeshNone,MeshStyleBlack],​​ListPlot3D[Flatten[Table[Table[{i,j,503},{i,-35,0,1}],{j,20,70,1}],1],BoxRatios{1,1,.5},PlotRange->All,ColorFunctionFunction[{x,y,z},ColorData["Aquamarine"][z]],NormalsFunctionNone,MeshNone],BoxedFalse,Axes{True,True,True}]
Out[]=