2 svar · 246 visningar · startad av T_Codez
Hej hej
Då ha man fastnat i ASP.NET träsket igen då...
Miljö:
SQLServer 2000
.NET 1.1
Jag får följande felmeddelande:
*An OLE DB Provider was not specified in the ConnectionString. An example would be, 'Provider=SQLOLEDB;'.
TBServer._default_start.CheckIfMediaExist(Int32 mId) in Y:\Inetpub\wwwroot\TB_qbrick2006\default.aspx.vb:371
ASP.default_aspx.__RenderForm1(HtmlTextWriter __output, Control parameterContainer) in c:\Inetpub\wwwroot\TB_qbrick2006\Default.aspx:300*
På aspx sidan har jag följande anrop:
...
<%IF CheckIfMediaExist(mId) = 1 Then%> <!-- rad 300-->
<%Else%>
<tr>
<td height="240"><asp:placeholder id="PlaceholderMedia" runat="server"></asp:placeholder></td>
</tr>
<tr>
<td bgColor="#f3f3f3" height="1"><IMG height="1" src="/bildarkiv/site/pixel.gif" width="1"></td>
</tr>
<%END IF%>
...
Sen i vb:n ser funktionen ut så här:
'Importsen är:
Imports System
Imports System.Data
Imports System.Drawing
Imports System.Web
Imports System.Web.UI.WebControls
Imports System.Web.UI.HtmlControls
Imports System.IO
Imports System.Data.SqlClient.SqlConnection
Imports System.Data.SqlClient
Imports clsHttpHandler
Imports System.Collections
Imports System.ComponentModel
Imports System.Web.SessionState
Imports System.Web.UI
''''''''''''''''''''''''''''''''''''''''''''''''''''''''A whole lot of code...
Public Function CheckIfMediaExist(ByVal mId As Integer) As Integer
Dim sToCheck As String
Dim rValue As Integer
Dim SQL As String = "SELECT File1" & Session("VLS") & " FROM tblMain WHERE Id = " & mId
Dim Conn As New OleDb.OleDbConnection(strConn) ' Rad 371
Dim Command As New OleDb.OleDbCommand(SQL, Conn)
Conn.Open()
Dim Reader As OleDb.OleDbDataReader
Reader = Command.ExecuteReader()
While Reader.Read
sToCheck = Reader("File1") & Session("VLS")
End While
Reader.Close()
Conn.Close()
If sToCheck = "" Then
Return rValue = 0
Else
Return rValue = 1
End If
End Function
Är tacksam för alla uppslag, lösningar och funderingar som funkar... :)
Dim Conn As New OleDb.OleDbConnection(strConn) ' Rad 371
Du använder en variabel som heter strConn, men du har inte satt värdet på denna parameter någonstans i din kod????
Samt om du använder dig av en SQL Server så SKALL DU INTE och jag menar INTE använda dig av OleDB klasserna utan Sqlklasserna. Som du till och med har en referens till i dina Imports deklarationer :)
- M
Du har så rätt Gladh !
En fungerande lösning blev till slut:
Public Function CheckIfMediaExist(ByVal mId As Integer) As Integer
Dim rValue As Integer
Dim SQL As String
rValue = 0
SQL = "SELECT File2" & Session("VLS") & " FROM tblMain WHERE Id = " & mId
Dim Conn As New SqlConnection(strConn)
Dim Command As New SqlCommand(SQL, Conn)
Conn.Open()
Try
Dim Reader As SqlDataReader
Reader = Command.ExecuteReader()
While Reader.Read
If Reader("File2" & Session("VLS")).ToString <> "" Then
rValue = 1
Else
rValue = 0
End If
End While
Reader.Close()
Catch ex As SqlException
Response.Write(ex.Message)
Finally
Conn.Close()
End Try
Return rValue
End Function
Thankz Y'all :birp