程序如下:
<%@ Import Namespace="System.Data" %>
<%@ Import Namespace="System.Data.SqlClient" %>
<Script Languate="VB" Runat="Server">
Sub Page_Load(sender As Object, e As Eventargs)
'创建数据连接
Dim objConn As New SqlConnection()
objConn.ConnectionString = "Data Source=localhost;" & _
"Integrated Security=SSPI;" & _
"Initial Catalog=Friend"
objConn.Open()
Dim objCmd1 As New sqlCommand("Update 择友俱乐部 Set 姓名='张小锘'Where 编号='4'", objConn)
objCmd1.ExecuteNonQuery() '创建 DataReader 对象案例
Dim objCmd As New SqlCommand()
objCmd.Connection = objConn
objCmd.CommandText = "Select * From 择友俱乐部"
Dim objReader As SqlDataReader = objCmd.ExecuteReader() '显示数据
Dim I As Integer
Response.Write ("<Table Border='1'><Tr Align='Center'>")
For I = 0 To objReader.FieldCount - 1
Response.Write ("<Td>" & objReader.GetName(I) & "</Td>")
Next
Response.Write ("</Tr>")
While objReader.Read()
Response.Write ("<Tr>")
For I = 0 To objReader.FieldCount - 1
Response.Write ("<Td>" & objReader.GetValue(I) & "</Td>")
Next
Response.Write ("</Tr>")
End While
Response.Write ("</Table>")
'关闭 DataReader 对象案例及数据连接
objReader.Close()
objConn.Close()
End Sub
</Script> 显示结果如下:
编号 姓名 性別 年齡 星座 身高 体重 职业
4 ?小? 男 25 ~ 30 天秤座 175 ~ 180 65 ~ 70 上班族
5 叶小钗 男 30 ~ 35 魔羯座 165 ~ 170 60 ~ 65 老师
6 流川枫 男 15 ~ 20 射手座 180 ~ 185 65 ~ 70 上班族
8 赵冰冰 女 20 ~ 25 处女座 155 ~ 160 45 ~ 50 学生
9 嘟嘟 男 15 ~ 20 狮子座 165 ~ 170 55 ~ 60 学生
10 晴子 女 15 ~ 20 双子座 160 ~ 165 45 ~ 50 学生
11 小兰 女 25 ~ 30 巨蟹座 165 ~ 170 50 ~ 55 上班族
12 宋圆 女 20 ~ 25 双鱼座 160 ~ 165 45 ~ 50 公务员
13 樱桃子 女 25 ~ 30 天秤座 155 ~ 160 55 ~ 60 SOHO 族
14 亮亮 女 25 ~ 30 射手座 165 ~ 170 50 ~ 55 公务员
16 安琪 女 15 ~ 20 狮子座 165 ~ 170 50 ~ 55 学生
17 林达 女 20 ~ 25 双鱼座 165 ~ 170 50 ~ 55 公务员
18 陈小东 男 25 ~ 30 魔羯座 175 ~ 180 65 ~ 70 上班族
20 安室 女 30 ~ 35 处女座 155 ~ 160 45 ~ 50 老师
问:为什么会显示这样:?小? ,有些字不能显示出来。希望各位高手指教,小弟感激不尽。 但如果改用连接Access数据库,能正常显示.我的系统是XP Profession,IIS 为5.0,数据库为SQL Server 2000
<%@ Import Namespace="System.Data" %>
<%@ Import Namespace="System.Data.SqlClient" %>
<Script Languate="VB" Runat="Server">
Sub Page_Load(sender As Object, e As Eventargs)
'创建数据连接
Dim objConn As New SqlConnection()
objConn.ConnectionString = "Data Source=localhost;" & _
"Integrated Security=SSPI;" & _
"Initial Catalog=Friend"
objConn.Open()
Dim objCmd1 As New sqlCommand("Update 择友俱乐部 Set 姓名='张小锘'Where 编号='4'", objConn)
objCmd1.ExecuteNonQuery() '创建 DataReader 对象案例
Dim objCmd As New SqlCommand()
objCmd.Connection = objConn
objCmd.CommandText = "Select * From 择友俱乐部"
Dim objReader As SqlDataReader = objCmd.ExecuteReader() '显示数据
Dim I As Integer
Response.Write ("<Table Border='1'><Tr Align='Center'>")
For I = 0 To objReader.FieldCount - 1
Response.Write ("<Td>" & objReader.GetName(I) & "</Td>")
Next
Response.Write ("</Tr>")
While objReader.Read()
Response.Write ("<Tr>")
For I = 0 To objReader.FieldCount - 1
Response.Write ("<Td>" & objReader.GetValue(I) & "</Td>")
Next
Response.Write ("</Tr>")
End While
Response.Write ("</Table>")
'关闭 DataReader 对象案例及数据连接
objReader.Close()
objConn.Close()
End Sub
</Script> 显示结果如下:
编号 姓名 性別 年齡 星座 身高 体重 职业
4 ?小? 男 25 ~ 30 天秤座 175 ~ 180 65 ~ 70 上班族
5 叶小钗 男 30 ~ 35 魔羯座 165 ~ 170 60 ~ 65 老师
6 流川枫 男 15 ~ 20 射手座 180 ~ 185 65 ~ 70 上班族
8 赵冰冰 女 20 ~ 25 处女座 155 ~ 160 45 ~ 50 学生
9 嘟嘟 男 15 ~ 20 狮子座 165 ~ 170 55 ~ 60 学生
10 晴子 女 15 ~ 20 双子座 160 ~ 165 45 ~ 50 学生
11 小兰 女 25 ~ 30 巨蟹座 165 ~ 170 50 ~ 55 上班族
12 宋圆 女 20 ~ 25 双鱼座 160 ~ 165 45 ~ 50 公务员
13 樱桃子 女 25 ~ 30 天秤座 155 ~ 160 55 ~ 60 SOHO 族
14 亮亮 女 25 ~ 30 射手座 165 ~ 170 50 ~ 55 公务员
16 安琪 女 15 ~ 20 狮子座 165 ~ 170 50 ~ 55 学生
17 林达 女 20 ~ 25 双鱼座 165 ~ 170 50 ~ 55 公务员
18 陈小东 男 25 ~ 30 魔羯座 175 ~ 180 65 ~ 70 上班族
20 安室 女 30 ~ 35 处女座 155 ~ 160 45 ~ 50 老师
问:为什么会显示这样:?小? ,有些字不能显示出来。希望各位高手指教,小弟感激不尽。 但如果改用连接Access数据库,能正常显示.我的系统是XP Profession,IIS 为5.0,数据库为SQL Server 2000
然后SQL语句改为
Dim objCmd1 As New sqlCommand("Update 择友俱乐部 Set 姓名=N'张小锘'Where 编号='4'", objConn) 再试试应该没有问题了
要是不能正常显示,估计就是字段类型定义的时候出了问题,建义用varchar。
我在数据库中定义的"姓名"数据类型为Varchar;我想原因是objCmd.Connection的类型为string
在SQL Server 2000中与其对应的是nvarchar.