hi there, i would want to change the mysql to mssql. please help

<%@ Import Namespace="System.Data" %>
<%@ Import Namespace="System.Data.SQLClient" %>
<script language="VB" Runat="server">
Dim blHasRows as Boolean
Sub doInsert(Source as Object, E as EventArgs)
Dim strConn as string = "server=YourServer;uid=YourUID;pwd=YourPWD;database=YourDB"
Dim MySQL as string = "Select * from samples where title=@title and link=@link"
Dim MyConn as New SQLConnection(strConn)
Dim objDR as SQLDataReader
Dim Cmd as New SQLCommand(MySQL, MyConn)
	With Cmd.Parameters
		.Add(New SQLParameter("@title", frmtitle.text))
		.Add(New SQLParameter("@link", frmlink.text))
	End With
MyConn.Open()
objDR=Cmd.ExecuteReader(system.data.CommandBehavior.CloseConnection)
if objDR.HasRows then
	blHasRows="True"
else
	blHasRows="False"
End If 
MyConn.Close()
	MySQL = "Insert into samples (title, link, Description) Values (@title, @link, @Description)"
	Dim Cmd2 as New SQLCommand(MySQL, MyConn)
	With Cmd2.Parameters
		.Add(New SQLParameter("@title", frmtitle.text))
		.Add(New SQLParameter("@link", frmlink.text))
		.Add(New SQLParameter("@Description", frmDescription.text))
	End With
	if blHasRows="False" then
		MyConn.Open()
		cmd2.ExecuteNonQuery()
		lblResults.text="Your information has been received!"
		MyConn.Close
		seeRecords()
	else
		lblResults.text="Sorry, that information is already in the database"
	End If 
End Sub

Sub Page_Load(Source as Object, E as EventArgs)

End Sub

Sub seeRecords()
Dim strConn as string = "server=YourServer;uid=YourUID;pwd=YourPWD;database=YourDB"
Dim MySQL as string = "Select Top 1 * from samples order by ID desc"
Dim MyConn as New SQLConnection(strConn)
Dim objDR as SQLDataReader
Dim Cmd as New SQLCommand(MySQL, MyConn)
	With Cmd.Parameters
		.Add(New SQLParameter("@title", frmtitle.text))
		.Add(New SQLParameter("@link", frmlink.text))
	End With
MyConn.Open()
objDR=Cmd.ExecuteReader(system.data.CommandBehavior.CloseConnection)
MyDataGrid.DataSource=objDR
MyDataGrid.DataBind
MyConn.Close()
End Sub
</script>
<html>
<head>
	<meta name="GENERATOR" Content="ASP Express 3.2">
	<title>Checking Data before Inserting New Data</title>
</head>
<body>
<form id="form1" Runat="server">
<div align="center"><table>
	<tr>
		<td align="right">Title</td>
		<td> <asp:textbox id="frmtitle" Text="Tender Moments" Runat="server" /></td>
	</tr>
	<tr>
		<td align="right">Link</td>
		<td> <asp:textbox id="frmlink" Text="http://tendermoments.com" Runat="server" /></td>
	</tr>
	<tr>
		<td align="right">Description</td>
		<td> <asp:textbox id="frmDescription" Runat="server" /></td>
	</tr><tr>
		<td align="right"><asp:button id="button1"  onclick="doInsert" Text="Submit" Runat="server" /></td>
		<td></td>
	</tr>
</table>
<asp:Label ID="lblResults" Font-Bold="True" Runat="server" />
<asp:Datagrid Runat="server"
	Id="MyDataGrid"
	GridLines="Both"
	cellpadding="0"
	cellspacing="0"
	Headerstyle-BackColor="#BDCFE7"
	Headerstyle-Font-Name="Arial"
	Headerstyle-Font-Size="8"
	BackColor="#E7EFFF"
	Font-Name="Arial"
	Font-Size="8"
	BorderColor="Black">
</asp:DataGrid>
</div>
</form>
</body>
</html>

Recommended Answers

All 2 Replies

Try using this code

cmd.Parameters.Add("@YourField", SqlDbType.VarChar).Value = "Value"

i am not sure where to add this command. Please assist me.

Be a part of the DaniWeb community

We're a friendly, industry-focused community of developers, IT pros, digital marketers, and technology enthusiasts meeting, networking, learning, and sharing knowledge.