Loading a Datagird from ADOBD function

[DeeRuff1]

Hi All,
I am new to the VB.NET world and I was able to get this function working. But there is someone who wants me to fill a grid. Can this be converted into loading a DataGrid.


Public Function openSQLConn(ByRef sServer As Object, ByRef sLogin As Object, ByRef sPASSWORD As Object, ByRef sDatabase As Object) As ADODB

'On Error GoTo errorHandler
Dim strDMISName As String
Dim strDMISNumber As String
Dim sconnstr As String

Dim oconn As ADODB.Connection
oconn = New ADODB.Connection


sconnstr = "driver={SQL Server}; server=" & sServer & "; " & "uid=" & sLogin & "; pwd=" & sPASSWORD & "; database=" & sDatabase
oconn.Open(sconnstr)

Dim rs As ADODB.Recordset
rs = New ADODB.Recordset

Dim fld As ADODB.Field


rs.Open("SELECT * FROM Sites", oconn, ADODB.CursorTypeEnum.adOpenStatic, ADODB.LockTypeEnum.adLockReadOnly)

If rs.BOF And rs.EOF Then
Exit Function
End If

rs.MoveFirst()

Do While Not rs.EOF

strDMISNumber = rs.Fields("DMIS_ID").Value
strDMISNumber = Microsoft.VisualBasic.Left(strDMISNumber, 4)
strDMISName = rs.Fields("Name").Value
Me.ComboBox1.Items.Add(strDMISNumber & " " & strDMISName)

rs.MoveNext()

Loop

rs.Close()
rs = Nothing

oconn.Close()
oconn = Nothing

Exit Function

 

[ca8msm]

Have a look at the DataSource property of a DataGrid

--------------------------------------------------------------------------------------------------------------------------------------------

Need help finding an answer?

Try the search facility (

http://www.tek-tips.com/search.cfm)

or read FAQ222-2244 on how to get better results.