redblack
Legacy Member
geen wonder dat ik 2e zit heb, da terzijde
Kheb volgende code om datagrid te vullen
Private Function opvullen_dgreizen()
ds = New DataSet
Dim strSQLaankomst As String
Dim strSQLvertrek As String
strSQLaankomst = " select Reisnr,vertrek,aankomst from Reis where ( aankomst ='" & ddlstad.SelectedValue & "') order by Reisnr"
strSQLvertrek = " select Reisnr,vertrek,aankomst from Reis where ( vertrek ='" & ddlstad.SelectedValue & "') order by Reisnr"
If rdboverzicht.SelectedIndex = 0 Then
ad = New OleDbDataAdapter(strSQLvertrek, objConn)
Else
ad = New OleDbDataAdapter(strSQLaankomst, objConn)
End If
Try
ad.Fill(ds, "Reis")
dgreizen.DataSource = ds.Tables("Reis").DefaultView
dgreizen.DataBind()
Catch ex As Exception
Response.Write("Probleem met de database connectie")
End Try
End Function
Het probleem is nu dat em voortdurend zegt dat er een probleem is met de database connectie
Who can help me...again
Kheb volgende code om datagrid te vullen
Private Function opvullen_dgreizen()
ds = New DataSet
Dim strSQLaankomst As String
Dim strSQLvertrek As String
strSQLaankomst = " select Reisnr,vertrek,aankomst from Reis where ( aankomst ='" & ddlstad.SelectedValue & "') order by Reisnr"
strSQLvertrek = " select Reisnr,vertrek,aankomst from Reis where ( vertrek ='" & ddlstad.SelectedValue & "') order by Reisnr"
If rdboverzicht.SelectedIndex = 0 Then
ad = New OleDbDataAdapter(strSQLvertrek, objConn)
Else
ad = New OleDbDataAdapter(strSQLaankomst, objConn)
End If
Try
ad.Fill(ds, "Reis")
dgreizen.DataSource = ds.Tables("Reis").DefaultView
dgreizen.DataBind()
Catch ex As Exception
Response.Write("Probleem met de database connectie")
End Try
End Function
Het probleem is nu dat em voortdurend zegt dat er een probleem is met de database connectie
Who can help me...again

