初学VB.NET连接SQL数据库!

1@ Page Language="VB" Debug="true" trace="true" 
1@ Import NameSpace="System.Data" 
1@ Import NameSpace="System.data.SQLClient" 
 1<script language="VB" runat="server">   
 2Sub Page_Load(sender as object, E as eventargs)   
 3Dim ds as DataSet   
 4Dim MyConnection as SQLConnection   
 5Dim MyAdpt as SQLDataAdapter   
 6MyConnection =New SQLConnection("server='localhost';UID=sa;PWD=wenasen.com; database=credit_sql")   
 7MyAdpt = New SQLDataAdapter("select * from admin",MyConnection)   
 8ds= new DataSet()   
 9MyAdpt.Fill(ds,"admin")   
10dgA.DataSource=ds.tables("admin").defaultView   
11dgA.DataBind()   
12end sub   
13</script>
 1<html>
 2<head>
 3<meta content="text/html; charset=utf-8" http-equiv="Content-Type"/>
 4<title>显示SQL数据库</title>
 5</head>
 6<body>
 7<form id="form1" runat="server">
 8<asp:datagrid allowpaging="true" alternatingitemstyle-backcolor="#CCCCCC" border="1" cellpadding="1" edititemstyle-backcolor="" headerstyle-backcolor="#00CCCC" id="dgA" runat="server" width="100%"></asp:datagrid>
 9</form>
10</body>
11</html>
Published At
Categories with Web编程
Tagged with
comments powered by Disqus